Put the character at the staircase when going down

Always put the character at the up staircase when going down a level,
even when going down to a level we've already generated.

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