Map animations

1 files changed, 2 insertions, 2 deletions

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