Implement (partially) updating pathing grid when opening doors

src/Dodge/Placement/PlaceSpot/Block.hs

@@ -74,7 +74,6 @@ plLineBlock basePane blwidth a b gw = ( 0
         , _blDir = 0    -- THIS IS NOT SENSIBLE. TODO rethink block positioning
         , _blFootprint = cornersAt p -- TODO check winding (clockwise, anticlockwise)
         , _blObstructs = []
-        , _blPaths = []
         , _blPos = p, _blDraw = const mempty , _blDeath = makeBlockDebris}
         )
     insertBlocks = flip (foldr insertBlock) $ zip is blockCenPs
@@ -97,10 +96,10 @@ plLineBlock basePane blwidth a b gw = ( 0
 
 -- | Must be done after inserting the block
 insertWalls :: Int -> [Wall] -> World -> World
-insertWalls blid wls w = w' & blocks . ix blid . blPaths .~ concat paths
+insertWalls blid wls w = w' & blocks . ix blid . blObstructs .~ concat paths
   where
     (w',paths) = mapAccumR (flip insertWall) w wls
 
 insertWall :: Wall -> World -> (World,[(Int,Int,PathEdge)])
-insertWall wl = uncurry obstructPathsCrossing (_wlLine wl)
+insertWall wl = uncurry (obstructPathsCrossing BlockObstacle) (_wlLine wl)
     . (walls . at (_wlID wl) ?~ wl)