Redo PathFrom name change

src/Dodge/Room/Pillar.hs

@@ -24,8 +24,8 @@ blockPillar w' h' = ps0jPushPS (aline tl tr)
     $ ps0jPushPS (aline br bl)
     $ sps0 (aline bl tl)
   where
-    w = w' - 9
-    h = h' - 9
+    w = w' - 10
+    h = h' - 10
     tl = V2 (-w) h
     tr = V2 w h
     br = V2 w (-h)
@@ -70,7 +70,7 @@ roomPillarsSquare = do
   where
     makepill edge = sps (rprBool $ \rp _ -> t edge rp) smallPillar
     t edge rp = any (f edge) (_rpType rp) && _rpPlacementUse rp == 0
-    f edge rpt = maybe False (PathFromEdge edge 0 `S.member`) (rpt ^? offPathEdges)
+    f edge rpt = maybe False (PathFromEdge edge 0 `S.member`) (rpt ^? offPathFromEdges)
 
 roomPillarsPassage :: RandomGen g => State g Room
 roomPillarsPassage = do

src/Dodge/Room/Tanks.hs

@@ -42,7 +42,7 @@ randEdgeTank = do
                 <>  horPipe 80 0 (70 *.* cardVec edge))))
                     -- 70 is a guess, the true value depends on the distance to the wall
         & plSpot .~ rprBool (\rp _ -> _rpPlacementUse rp == 0
-                && rpOffPathEdge (PathFromEdge edge 0) rp)
+                && rpOffPathFromEdge (PathFromEdge edge 0) rp)
 
 randEdgeTanks :: RandomGen g => Int -> State g [Placement]
 randEdgeTanks i = do
@@ -54,7 +54,7 @@ randEdgeTanks i = do
                 <>  horPipe 80 0 (70 *.* cardVec edge))))
                     -- 70 is a guess, the true value depends on the distance to the wall
         & plSpot .~ rprBool (\rp _ -> _rpPlacementUse rp == 0
-                && rpOffPathEdge (PathFromEdge edge 0) rp)
+                && rpOffPathFromEdge (PathFromEdge edge 0) rp)
 
 tanksPipesRoom :: RandomGen g => State g Room
 tanksPipesRoom = do