Added player cursor

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