Start simplifying/removing Wall records

src/Dodge/Default/Door.hs

@@ -16,14 +16,12 @@ defaultAutoWall :: Wall
 defaultAutoWall =
     defaultDoorWall
         & wlColor .~ dim yellow
-        & wlPathable .~ True
         & wlOpacity .~ Opaque 9
 
 defaultSwitchWall :: Wall
 defaultSwitchWall =
     defaultDoorWall
         & wlColor .~ red
-        & wlPathable .~ False
         & wlOpacity .~ Opaque 0
 
 defaultDoor :: Door
@@ -33,7 +31,7 @@ defaultDoor =
 --        , _drWallIDs = mempty
 --        , _drStatus = DoorClosed
         , _drTrigger = WdBlConst False
-        , _drMech = DrWdId
+        , _drUpdate = DoorDoNothing
 --        , _drPos = (0, 0)
 --        , _drOpenPos = (0, 0)
 --        , _drClosePos = (0, 0)
@@ -42,7 +40,6 @@ defaultDoor =
         , _drLerp = 0
         , _drFootPrint = mempty
         , _drHP = 10000
-        , _drSpeed = 1
         , _drPushedBy = PushesItself
         , _drPushes = Nothing
         , _drMounts = mempty

src/Dodge/Default/Wall.hs

@@ -23,13 +23,10 @@ defaultWall =
         , _wlColor = greyN 0.6
         , _wlPathFlag = S.fromList [WallBlockVisibility
                 , WallNotAutoOpen, WallNotDestrucable]
-        , --, _wlOpacity = Opaque 11
-          _wlOpacity = Opaque 11
-        , _wlPathable = False
+        , _wlOpacity = Opaque 11
         , _wlPenetrable = False
         , _wlFireThrough = False
         , _wlTouchThrough = False
-        , _wlReflect = False
         , _wlUnshadowed = True
         , _wlRotateTo = True
         , _wlStructure = StandaloneWall