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 7ba4bc673ace..7c103ccfbcb3 100644 --- a/src/Xanthous/App.hs +++ b/src/Xanthous/App.hs @@ -119,9 +119,9 @@ handleCommand (Move dir) = do collisionAt newPos >>= \case Nothing -> do characterPosition .= newPos + stepGame describeEntitiesAt newPos modify updateCharacterVision - stepGame Just Combat -> attackAt newPos Just Stop -> pure () continue |