Refactor doors

src/Dodge/Default/Wall.hs

@@ -12,6 +12,7 @@ defaultWall = Wall
     , _wlColor = greyN 0.6
     , _wlSeen = False
     , _wlIsSeeThrough = False
+    , _wlPathable = False
     }
 {- Indestructible see-through wall.  -}
 defaultCrystalWall :: Wall
@@ -21,6 +22,7 @@ defaultCrystalWall = Wall
     , _wlColor = withAlpha 0.5 aquamarine
     , _wlSeen = False
     , _wlIsSeeThrough = True
+    , _wlPathable = False
     }
 {- Door that opens on approach.
 Pathable.  -}