diff options
author | Matthias Schiffer <matthias@gamezock.de> | 2010-04-11 02:12:48 +0200 |
---|---|---|
committer | Matthias Schiffer <matthias@gamezock.de> | 2010-04-11 02:12:48 +0200 |
commit | 4ecea2f9dc5bbb4c5e32b2d845f29c0dc7783ac0 (patch) | |
tree | 486d1a1cef0175460f6865e5cf1968bb87d2c667 /src/Game.hs | |
parent | b694c7705eab500bd2d0b28b09b04e22c223c571 (diff) | |
download | htanks-4ecea2f9dc5bbb4c5e32b2d845f29c0dc7783ac0.tar htanks-4ecea2f9dc5bbb4c5e32b2d845f29c0dc7783ac0.zip |
Restructured Simulation module
Diffstat (limited to 'src/Game.hs')
-rw-r--r-- | src/Game.hs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/Game.hs b/src/Game.hs index 59d67aa..5af2ad2 100644 --- a/src/Game.hs +++ b/src/Game.hs @@ -2,8 +2,6 @@ module Game ( Bullet(..) , GameState(..) - , Game - , runGame ) where import Level @@ -28,9 +26,3 @@ data GameState = GameState , tanks :: ![Tank] , bullets :: ![Bullet] } deriving (Show) - -newtype Game a = Game (State GameState a) - deriving (Monad, MonadState GameState) - -runGame :: GameState -> Game a -> (a, GameState) -runGame st (Game a) = runState a st |