diff options
| -rw-r--r-- | src/Xanthous/Entities/Environment.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Xanthous/Entities/Environment.hs b/src/Xanthous/Entities/Environment.hs index 4f70d90253aa..46416d1da59a 100644 --- a/src/Xanthous/Entities/Environment.hs +++ b/src/Xanthous/Entities/Environment.hs @@ -88,7 +88,8 @@ instance Brain Door where step = brainVia Brainless instance Entity Door where blocksVision = not . view open - description _ = "a door" + description door | door ^. open = "an open door" + | otherwise = "a closed door" entityChar _ = "d" -- | A closed, unlocked door |