aboutsummaryrefslogtreecommitdiff
path: root/src/Game/Entities.hs
diff options
context:
space:
mode:
authorJuan J. Martinez <jjm@usebox.net>2023-03-10 23:53:40 +0000
committerJuan J. Martinez <jjm@usebox.net>2023-03-10 23:53:40 +0000
commit45a103da2133b645fac9617cc97c11901d3e258f (patch)
tree0cad00427725ecd1067f64a99a25e78d39e72409 /src/Game/Entities.hs
parent7a714cc457323bff6b4a73ec9e7b58c7a63381ec (diff)
downloadspace-plat-hs-45a103da2133b645fac9617cc97c11901d3e258f.tar.gz
space-plat-hs-45a103da2133b645fac9617cc97c11901d3e258f.zip
Change stage
Diffstat (limited to 'src/Game/Entities.hs')
-rw-r--r--src/Game/Entities.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Game/Entities.hs b/src/Game/Entities.hs
index 21b6ba5..bd9729b 100644
--- a/src/Game/Entities.hs
+++ b/src/Game/Entities.hs
@@ -98,6 +98,7 @@ updateAll es state = do
ents
)
processActions s' ents' t
+ ActionExitLevel -> processActions s {GS.levelCompleted = True} ents t
processActions s ents [] = pure (s, ents)
-- Update entities skipping enemies if the player was hit