diff options
Diffstat (limited to 'src/Game.hs')
-rw-r--r-- | src/Game.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/Game.hs b/src/Game.hs index 9aef422..248287b 100644 --- a/src/Game.hs +++ b/src/Game.hs @@ -17,13 +17,13 @@ import qualified Data.Map as M data Tank = Tank - { tankX :: !Micro - , tankY :: !Micro - , tankDir :: !Micro - , tankAim :: !Micro - , tankSpeed :: !Micro - , tankTurnspeed :: !Micro - , tankMoving :: !Bool + { tankX :: !Micro + , tankY :: !Micro + , tankDir :: !Micro + , tankAim :: !Micro + , tankSpeed :: !Micro + , tankTurnspeed :: !Micro + , tankMoving :: !Bool , tankBulletSpeed :: !Micro , tankBulletBounces :: !Int , tankBulletsLeft :: !Int @@ -41,7 +41,7 @@ data Bullet = Bullet data GameState = GameState { level :: !Level , tanks :: ![Tank] - , bullets :: ![Bullet] + , bullets :: ![Bullet] , textures :: !(M.Map Texture TextureObject) } deriving (Show) |