Start to make wall flags/pathing interaction more sensible

src/Dodge/Debug/Picture.hs

@@ -268,10 +268,9 @@ drawPathEdge x y pe = setLayer DebugLayer $ multiArrow x y green (S.map obstacle
 
 obstacleColor :: EdgeObstacle -> Color
 obstacleColor eo = case eo of
-    WallObstacle -> red
-    DoorObstacle -> orange
-    AutoDoorObstacle -> yellow
-    BlockObstacle -> blue
+    WallObstacle WallNotAutoOpen -> red
+    WallObstacle WallBlockVisibility -> orange
+    WallObstacle WallNotDestrucable -> yellow
     ChasmObstacle -> cyan
 
 drawFarWallDetect :: World -> Picture
@@ -402,8 +401,7 @@ drawWlIDs w = setLayer FixedCoordLayer $ foldMap f (w ^. cWorld . lWorld . walls
         p = worldPosToScreen (w ^. wCam) $ 0.5 *.* uncurry (+.+) (_wlLine wl)
 
 drawPathing :: Config -> World -> Picture
-drawPathing cfig w =
-    setLayer DebugLayer $ ifoldMap f $ w ^. cWorld . incGraph
+drawPathing cfig w = setLayer DebugLayer $ ifoldMap f $ w ^. cWorld . incGraph
   where
     inodes = w ^. cWorld . incNode
     f i = foldMap (g i)