diff options
| -rw-r--r-- | src/Xanthous/App.hs | 2 |
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 |