about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--src/Xanthous/Entities/Environment.hs14
1 files changed, 8 insertions, 6 deletions
diff --git a/src/Xanthous/Entities/Environment.hs b/src/Xanthous/Entities/Environment.hs
index c34f2e0634d6..4f70d90253aa 100644
--- a/src/Xanthous/Entities/Environment.hs
+++ b/src/Xanthous/Entities/Environment.hs
@@ -68,19 +68,21 @@ makeLenses ''Door
 
 instance Draw Door where
   drawWithNeighbors neighs door
-    | door ^. open
-    = str . pure $ case wallEdges neighs of
+    = str . pure . ($ door ^. open) $ case wallEdges neighs of
         Edges True  False  False False -> vertDoor
         Edges False True   False False -> vertDoor
         Edges True  True   False False -> vertDoor
         Edges False False  True  False -> horizDoor
         Edges False False  False True  -> horizDoor
         Edges False False  True  True  -> horizDoor
-        _                              -> '+'
-    | otherwise    = str "\\"
+        _                              -> allsidesDoor
     where
-      horizDoor = '␣'
-      vertDoor = '['
+      horizDoor True = '␣'
+      horizDoor False = 'ᚔ'
+      vertDoor True = '['
+      vertDoor False = 'ǂ'
+      allsidesDoor True = '+'
+      allsidesDoor False = '▥'
 
 instance Brain Door where step = brainVia Brainless