Cleanup

src/Dodge/Debug/Picture.hs

@@ -253,18 +253,10 @@ drawInspectWalls w = concat $ do
                 )
 
 drawInspectWall :: World -> Wall -> Picture
-drawInspectWall _ wl =
-    setLayer DebugLayer $
-        color rose (thickLine 3 [a, b])
---            <> foldMap (drawDoorPaths w) (wl ^? wlStructure . wsDoor)
+drawInspectWall _ wl = setLayer DebugLayer $ color rose (thickLine 3 [a, b])
   where
     (a, b) = _wlLine wl
 
---drawDoorPaths :: World -> Int -> Picture
---drawDoorPaths w drid = concat $ do
---    paths <- w ^? cWorld . lWorld . doors . ix drid . drObstructs
---    return $ foldMap' (drawPathEdge . (^. penPathEdge)) paths
-
 drawPathEdge :: Point2 -> Point2 -> S.Set EdgeObstacle -> Picture
 drawPathEdge x y pe = setLayer DebugLayer $ multiArrow x y green (S.map obstacleColor pe)