Continue to work on pathfinding

src/Dodge/DrWdWd.hs

@@ -7,7 +7,7 @@ import Dodge.Base
 import Dodge.Block.Debris
 import Dodge.Data.World
 import Dodge.LevelGen.DoorPane
-import Dodge.Placement.PlaceSpot.TriggerDoor
+--import Dodge.Placement.PlaceSpot.TriggerDoor
 import Dodge.SoundLogic
 import Dodge.Wall.Move
 import Dodge.WorldBool
@@ -28,7 +28,7 @@ doorMechanism dr w = case mvDir of
             & flip (IS.foldl' (flip (`translateWallID` d))) (_drWallIDs dr)
             & moveUpdate
             & cWorld . lWorld . doors . ix drid . drPos . each %~ (+.+ d)
-            & maybeClearDoorPaths (_drObstacleType dr) (_drObstructs dr)
+--            & updateDoorEdges (_drObstacleType dr) (_drObstructs dr)
     Nothing -> w
   where
     toOpen = doWdBl (_drTrigger dr) w