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.  -}

src/Dodge/Default/World.hs

@@ -36,6 +36,7 @@ defaultWorld = World
     , _props = IM.empty
     , _particles = []
     , _walls = IM.empty
+    , _doors = IM.empty
     , _wallsZone = Zone IM.empty
     , _forceFields = IM.empty
     , _floorItems = IM.empty