Redo PathFrom name change

src/Dodge/Data/Room.hs

@@ -61,12 +61,12 @@ data RPLinkStatus
     | UnusedLink  { _rplsType :: S.Set RoomLinkType }
     | NotLink
   deriving (Eq,Ord,Show)
-data PathEdge = PathFromEdge CardinalPoint Int
+data PathFromEdge = PathFromEdge CardinalPoint Int
   deriving (Eq,Ord,Show)
 
 data RoomPosType 
-    = RoomPosOnPath {_onPathEdges :: S.Set PathEdge}
-    | RoomPosOffPath {_offPathEdges :: S.Set PathEdge}
+    = RoomPosOnPath {_onPathFromEdges :: S.Set PathFromEdge}
+    | RoomPosOffPath {_offPathFromEdges :: S.Set PathFromEdge}
     | RoomPosExLink
     | RoomPosLab Int
   deriving (Eq,Ord,Show)