diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-06-26 20:55:51 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-06-26 20:55:51 +0200 |
| commit | cc53496bab9ad2bbfc3fb2868cd10fa46f612e69 (patch) | |
| tree | f974028160c90e5a373c3ac38d8d7229c419aaa7 /src/Player.hs | |
| parent | 8f1fd98cd69659446b9fdd11c0f3d2b860d779f7 (diff) | |
| download | htanks-cc53496bab9ad2bbfc3fb2868cd10fa46f612e69.tar htanks-cc53496bab9ad2bbfc3fb2868cd10fa46f612e69.zip | |
Reworked Transform as a type class
Diffstat (limited to 'src/Player.hs')
| -rw-r--r-- | src/Player.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Player.hs b/src/Player.hs index 67d9f78..9239443 100644 --- a/src/Player.hs +++ b/src/Player.hs @@ -4,7 +4,6 @@ module Player ( Player(..) , SomePlayer(..) ) where -import Transformable import Vector import Data.Typeable @@ -13,7 +12,7 @@ import GLDriver (SomeEvent) class Player a where - playerUpdate :: a -> Tank -> IO (a, Maybe Vector, Bool, Maybe Vector, Bool) + playerUpdate :: a -> Tank -> IO (a, Maybe Rotation, Bool, Maybe Rotation, Bool) handleEvent :: a -> SomeEvent -> a handleEvent player _ = player |