Single source of truth for wall pathing

src/Dodge/Default/Wall.hs

@@ -19,8 +19,8 @@ defaultWall =
     Wall
         { _wlLine = (V2 0 0, V2 50 0)
         , _wlID = 0
-        , _wlPathFlag =
-            S.fromList [minBound .. maxBound]
+--        , _wlPathFlag =
+--            S.fromList [minBound .. maxBound]
         , _wlOpacity = Opaque 11
         , _wlUnshadowed = True
         , _wlRotateTo = True
@@ -33,7 +33,7 @@ defaultWall =
 defaultDoorWall :: Wall
 defaultDoorWall =
     defaultWall
-        & wlPathFlag . at WallNotDestrucable .~ Nothing
+--        & wlPathFlag . at WallNotDestrucable .~ Nothing
         & wlMaterial .~ Metal
         & wlOpacity .~ Opaque 0
 
@@ -41,13 +41,13 @@ defaultAutoWall :: Wall
 defaultAutoWall =
     defaultDoorWall
         & wlOpacity .~ Opaque 9
-        & wlPathFlag . at WallNotAutoOpen .~ Nothing
+--        & wlPathFlag . at WallNotAutoOpen .~ Nothing
 
 {- Indestructible see-through wall.  -}
 defaultCrystalWall :: Wall
 defaultCrystalWall =
     defaultWall & wlOpacity .~ SeeThrough & wlMaterial .~ Crystal
-        & wlPathFlag . at WallBlockVisibility .~ Nothing
+--        & wlPathFlag . at WallBlockVisibility .~ Nothing
 
 defaultMachineWall :: Wall
 defaultMachineWall =
@@ -58,8 +58,8 @@ defaultMachineWall =
         , _wlMaterial = Metal
         , _wlTouchThrough = True
         }
-        & wlPathFlag . at WallBlockVisibility .~ Nothing
-        & wlPathFlag . at WallNotDestrucable .~ Nothing
+--        & wlPathFlag . at WallBlockVisibility .~ Nothing
+--        & wlPathFlag . at WallNotDestrucable .~ Nothing
 
 defaultDirtWall :: Wall
 defaultDirtWall =
@@ -70,7 +70,7 @@ defaultDirtWall =
         , _wlRotateTo = False
         , _wlMaterial = Dirt
         }
-        & wlPathFlag . at WallNotDestrucable .~ Nothing
+--        & wlPathFlag . at WallNotDestrucable .~ Nothing
 
 defaultWindow :: Wall
 defaultWindow =
@@ -80,5 +80,5 @@ defaultWindow =
         , _wlOpacity = SeeThrough
         , _wlMaterial = Glass
         }
-        & wlPathFlag . at WallNotDestrucable .~ Nothing
-        & wlPathFlag . at WallBlockVisibility .~ Nothing
+--        & wlPathFlag . at WallNotDestrucable .~ Nothing
+--        & wlPathFlag . at WallBlockVisibility .~ Nothing