diff options
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 |