Refactor doors

src/Dodge/Update.hs

@@ -61,6 +61,7 @@ functionalUpdate w = case _menuLayers w of
         . ifConfigWallRotate
         . simpleCrSprings 
         . zoneCreatures 
+        . updateDoors
         . updateWalls
         . resetWorldEvents
         . dbArg _worldEvents
@@ -147,6 +148,9 @@ Apply door mechanisms.  -}
 updateWalls :: World -> World
 updateWalls w = IM.foldl' (flip $ fromMaybe id . (^? doorMech)) w (_walls w)
 
+updateDoors :: World -> World
+updateDoors w = IM.foldl' (\w' dr -> _drMech dr dr w') w (_doors w)
+
 ppEvents :: World -> World
 ppEvents w = IM.foldl' (flip $ \pp w' -> _ppEvent pp pp w') w $ _pressPlates w