diff options
Diffstat (limited to 'src/Player.hs')
| -rw-r--r-- | src/Player.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Player.hs b/src/Player.hs index af7f543..4784b8b 100644 --- a/src/Player.hs +++ b/src/Player.hs @@ -13,9 +13,12 @@ import GLDriver (SomeEvent) class Player a where playerUpdate :: a -> Tank -> IO (a, Maybe Micro, Bool, Maybe Micro, Bool) - handleEvent :: a -> SomeEvent -> a + handleEvent :: a -> SomeEvent -> a handleEvent player _ = player + + renderPlayer :: a -> IO () + renderPlayer _ = return () data SomePlayer = forall a. Player a => SomePlayer a @@ -25,3 +28,4 @@ instance Player SomePlayer where (p, angle, move, aangle, shoot) <- playerUpdate player tank return (SomePlayer p, angle, move, aangle, shoot) handleEvent (SomePlayer player) event = SomePlayer $ handleEvent player event + renderPlayer (SomePlayer player) = renderPlayer player |