diff options
| author | Matthias Schiffer <matthias@gamezock.de> | 2010-04-11 01:48:55 +0200 |
|---|---|---|
| committer | Matthias Schiffer <matthias@gamezock.de> | 2010-04-11 01:48:55 +0200 |
| commit | b694c7705eab500bd2d0b28b09b04e22c223c571 (patch) | |
| tree | 4024fdb2860e5aa5de4e77850da4daa60499cbeb /src/Game.hs | |
| parent | d2be8eb4103f266eb2078135960779bcbb82c492 (diff) | |
| download | htanks-b694c7705eab500bd2d0b28b09b04e22c223c571.tar htanks-b694c7705eab500bd2d0b28b09b04e22c223c571.zip | |
Removed IO from Game monad
Diffstat (limited to 'src/Game.hs')
| -rw-r--r-- | src/Game.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Game.hs b/src/Game.hs index 21fe6cd..59d67aa 100644 --- a/src/Game.hs +++ b/src/Game.hs @@ -29,8 +29,8 @@ data GameState = GameState , bullets :: ![Bullet] } deriving (Show) -newtype Game a = Game (StateT GameState IO a) - deriving (Monad, MonadIO, MonadState GameState) +newtype Game a = Game (State GameState a) + deriving (Monad, MonadState GameState) -runGame :: GameState -> Game a -> IO (a, GameState) -runGame st (Game a) = runStateT a st +runGame :: GameState -> Game a -> (a, GameState) +runGame st (Game a) = runState a st |