From 5929ced84a5c1f55781988a1d88044c8866fa9dd Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Tue, 2 May 2023 22:33:35 +0100 Subject: Map animations --- src/Game.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Game.hs') diff --git a/src/Game.hs b/src/Game.hs index d0092b6..c5fbdef 100644 --- a/src/Game.hs +++ b/src/Game.hs @@ -194,7 +194,7 @@ gameLoop e = do playLoop :: Env -> IO Env playLoop e = do let renderer = e.renderer - map' = e.map + map' = M.update e.map entities = e.entities hud = e.hud @@ -213,7 +213,7 @@ playLoop e = do SDL.rendererViewport renderer $= Nothing H.render renderer hud state - pure e {state = state, entities = updated} + pure e {state = state, entities = updated, map = map'} gameOverLoop :: Env -> IO Env gameOverLoop e = do -- cgit v1.2.3