From c4351d46ef13da5fbe2048bb3506f9549b61f437 Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Fri, 3 Jan 2020 12:14:01 -0500 Subject: [PATCH] Describe doors as either closed or open Rather than just describing them as "a door". Descriptions should ideally be as injective as possible! --- src/Xanthous/Entities/Environment.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Xanthous/Entities/Environment.hs b/src/Xanthous/Entities/Environment.hs index 4f70d9025..46416d1da 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