Add the exit it is drawn before any other entity

1 files changed, 1 insertions, 1 deletions

diff --git a/src/Game/Entities.hs b/src/Game/Entities.hs
index bd9729b..b53e4e3 100644
--- a/src/Game/Entities.hs
+++ b/src/Game/Entities.hs
@@ -56,7 +56,7 @@ playerPosition (Entities _ _ entities) =
 addExit :: Entities -> Int -> Int -> IO Entities
 addExit es x y = do
   exit <- mkExit es.sprites x y (collision es.player 24)
-  pure es {entities = es.entities ++ [exit]}
+  pure es {entities = head es.entities : exit : tail es.entities}
 
 updateAll :: Entities -> GS.State -> IO (Entities, GS.State)
 updateAll es state = do