From b694c7705eab500bd2d0b28b09b04e22c223c571 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Sun, 11 Apr 2010 01:48:55 +0200 Subject: Removed IO from Game monad --- src/Game.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Game.hs') 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 -- cgit v1.2.3