diff options
Diffstat (limited to 'users/glittershark/xanthous/src/Xanthous/App.hs')
| -rw-r--r-- | users/glittershark/xanthous/src/Xanthous/App.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/users/glittershark/xanthous/src/Xanthous/App.hs b/users/glittershark/xanthous/src/Xanthous/App.hs index a0913780fa..9091961b72 100644 --- a/users/glittershark/xanthous/src/Xanthous/App.hs +++ b/users/glittershark/xanthous/src/Xanthous/App.hs @@ -217,7 +217,7 @@ handleCommand Close = do handleCommand Look = do prompt_ @'PointOnMap ["look", "prompt"] Cancellable $ \(PointOnMapResult pos) -> - use (entities . EntityMap.atPosition pos) + gets (revealedEntitiesAtPosition pos) >>= \case Empty -> say_ ["look", "nothing"] ents -> describeEntities ents |