From 897bfe0f72ddc80a020a421cbe987b54716e571e Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sat, 11 Mar 2023 23:17:21 +0000
Subject: Exit transition

---
 src/Game.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Game.hs')

diff --git a/src/Game.hs b/src/Game.hs
index 8c416e3..be34a08 100644
--- a/src/Game.hs
+++ b/src/Game.hs
@@ -166,7 +166,7 @@ gameLoop e = do
       | state.batteries == state.totalBatteries && not state.exit = do
           es <- E.addExit env.entities x (y - 8) -- adjusted to player's height
           pure env {entities = es, state = state {GS.exit = True}}
-      | state.levelCompleted = do
+      | state.levelCompleted == GS.ExitDone = do
           map' <- M.load (maps !! (env.state.currentLevel + 1)) env.tsTexture
           entities <- E.mkEntities env.sprites map' env.controls
           pure $
-- 
cgit v1.2.3