Cleanup

2025-10-16 23:04:17 +01:00
parent 0f43e1ad8f
commit 0481f6e6f2
6 changed files with 145 additions and 292 deletions
@@ -270,10 +270,11 @@ drawPathEdge pe =

 obstacleColor :: EdgeObstacle -> Color
 obstacleColor eo = case eo of
-    WallObstacle -> cyan
-    DoorObstacle -> red
+    WallObstacle -> red
+    DoorObstacle -> orange
    AutoDoorObstacle -> yellow
    BlockObstacle -> blue
+    ChasmObstacle -> cyan

 drawFarWallDetect :: World -> Picture
 drawFarWallDetect w =