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/Render.hs | |
parent | d2be8eb4103f266eb2078135960779bcbb82c492 (diff) | |
download | htanks-b694c7705eab500bd2d0b28b09b04e22c223c571.tar htanks-b694c7705eab500bd2d0b28b09b04e22c223c571.zip |
Removed IO from Game monad
Diffstat (limited to 'src/Render.hs')
-rw-r--r-- | src/Render.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Render.hs b/src/Render.hs index ec7ae62..c00a476 100644 --- a/src/Render.hs +++ b/src/Render.hs @@ -74,8 +74,8 @@ setup = do render :: Main () render = do - tanklist <- lift $ gets tanks - bulletlist <- lift $ gets bullets + tanklist <- gets $ tanks . gameState + bulletlist <- gets $ bullets . gameState playerlist <- gets players textureWood <- getTexture TextureWood @@ -84,7 +84,7 @@ render = do textureBullet <- getTexture TextureBullet textureCrosshair <- getTexture TextureCrosshair - (lw, lh) <- lift $ gets level >>= \l -> return (fromIntegral . levelWidth $ l :: GLfloat, fromIntegral . levelHeight $ l :: GLfloat) + (lw, lh) <- gets (level . gameState) >>= \l -> return (fromIntegral . levelWidth $ l :: GLfloat, fromIntegral . levelHeight $ l :: GLfloat) liftIO $ do clear [ColorBuffer] |