Work on autodoor pathing

src/Dodge/Default/Door.hs

@@ -16,12 +16,7 @@ defaultAutoWall =
     defaultDoorWall
 --        & wlColor .~ dim yellow
         & wlOpacity .~ Opaque 9
-
-defaultSwitchWall :: Wall
-defaultSwitchWall =
-    defaultDoorWall
---        & wlColor .~ red
-        & wlOpacity .~ Opaque 0
+        & wlPathFlag . at WallNotAutoOpen .~ Nothing
 
 defaultDoor :: Door
 defaultDoor =

src/Dodge/Default/Wall.hs

@@ -1,6 +1,5 @@
 module Dodge.Default.Wall (
     defaultWall,
-    defaultSensorWall,
     defaultMachineWall,
     defaultWindow,
     defaultCrystalWall,
@@ -35,17 +34,14 @@ defaultWall =
         }
 
 defaultDoorWall :: Wall
-defaultDoorWall =
-    defaultWall{_wlMaterial = Metal}
+defaultDoorWall = defaultWall
         & wlPathFlag . at WallNotDestrucable .~ Nothing
+        & wlMaterial .~ Metal
+        & wlOpacity .~ Opaque 0
 
 {- Indestructible see-through wall.  -}
 defaultCrystalWall :: Wall
 defaultCrystalWall = defaultWall & wlOpacity .~ SeeThrough & wlMaterial .~ Crystal
---        { _wlColor = withAlpha 0.5 aquamarine
---        , _wlOpacity = SeeThrough
---        , _wlMaterial = Crystal
---        }
 
 defaultMachineWall :: Wall
 defaultMachineWall =
@@ -57,9 +53,6 @@ defaultMachineWall =
         , _wlTouchThrough = True
         }
 
-defaultSensorWall :: Wall
-defaultSensorWall = defaultMachineWall
-
 defaultDirtWall :: Wall
 defaultDirtWall =
     defaultWall