neocturne/htanks
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Removed IO from Game monad

Browse source
This commit is contained in:
Matthias Schiffer 2010-04-11 01:48:55 +02:00
parent d2be8eb410
commit b694c7705e
5 changed files with 31 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/Game.hs
View file

@ -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