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