about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--src/Xanthous/App.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xanthous/App.hs b/src/Xanthous/App.hs
index 1f7714da1d57..202f38e8685b 100644
--- a/src/Xanthous/App.hs
+++ b/src/Xanthous/App.hs
@@ -304,6 +304,7 @@ handleCommand GoDown = do
     pCharacter <- entities . at cEID <<.= Nothing
     levels .= levs'
     entities . at cEID .= pCharacter
+    characterPosition .= extract levs' ^. upStaircasePosition
   else say_ ["cant", "goDown"]
 
   continue
@@ -599,7 +600,6 @@ genLevel _num = do
   level <- case generator of
     CaveAutomata -> generateLevel SCaveAutomata CaveAutomata.defaultParams dims
     Dungeon -> generateLevel SDungeon Dungeon.defaultParams dims
-  characterPosition .= level ^. levelCharacterPosition
   pure $!! level
 
 levelToGameLevel :: Level -> GameLevel