From 1020310190063279b7951e44d8ae21fe3a623aa3 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <matthias@gamezock.de>
Date: Fri, 5 Mar 2010 03:32:02 +0100
Subject: Render cannon direction; handle resize in GLX driver

---
 Player.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'Player.hs')

diff --git a/Player.hs b/Player.hs
index f3303f8..5c41841 100644
--- a/Player.hs
+++ b/Player.hs
@@ -12,7 +12,7 @@ import GLDriver (SomeEvent)
 
 
 class Player a where
-    playerMovement :: a -> Tank -> (a, Maybe Micro, Bool)
+    playerUpdate :: a -> Tank -> (a, Maybe Micro, Bool, Maybe Micro)
     handleEvent :: a -> SomeEvent -> a
     
     handleEvent player _ = player
@@ -21,5 +21,7 @@ class Player a where
 data SomePlayer = forall a. Player a => SomePlayer a
 
 instance Player SomePlayer where
-    playerMovement (SomePlayer player) tank = (\(p, angle, move) -> (SomePlayer p, angle, move)) $ playerMovement player tank
+    playerUpdate (SomePlayer player) tank = 
+        let (p, angle, move, aangle) = playerUpdate player tank
+        in (SomePlayer p, angle, move, aangle)
     handleEvent (SomePlayer player) event = SomePlayer $ handleEvent player event
-- 
cgit v1.2.3