Renamed some Tank and Shoot accessors

1 files changed, 9 insertions, 9 deletions

diff --git a/Game.hs b/Game.hs
index 1f85376..b31009e 100644
--- a/Game.hs
+++ b/Game.hs
@@ -17,16 +17,16 @@ import qualified Data.Map as M
 
 
 data Tank = Tank
-          { posx             :: !Micro
-          , posy             :: !Micro
-          , dir              :: !Micro
-          , aim              :: !Micro
-          , speed            :: !Micro
-          , turnspeed        :: !Micro
-          , moving           :: !Bool
+          { tankX            :: !Micro
+          , tankY            :: !Micro
+          , tankDir          :: !Micro
+          , tankAim          :: !Micro
+          , tankSpeed        :: !Micro
+          , tankTurnspeed    :: !Micro
+          , tankMoving       :: !Bool
           , tankShootSpeed   :: !Micro
           , tankShootBounces :: !Int
-          , shootsLeft       :: !Int
+          , tankShootsLeft   :: !Int
           } deriving Show
 
 data Shoot = Shoot
@@ -34,7 +34,7 @@ data Shoot = Shoot
     , shootY      :: !Micro
     , shootDir    :: !Micro
     , shootSpeed  :: !Micro
-    , bouncesLeft :: !Int
+    , shootBouncesLeft :: !Int
     , shootTank   :: !Int
     } deriving Show