Somewhat simplify RoomPos types

src/Dodge/Data/Room.hs

@@ -64,6 +64,7 @@ data RPLinkStatus
         , _rplsInRoomID :: Int
         }
     | UnusedLink {_rplsType :: S.Set RoomLinkType}
+    | PathNodeRP
     | NotLink
     deriving (Eq, Ord, Show)
 
@@ -71,10 +72,8 @@ data PathFromEdge = PathFromEdge CardinalPoint Int
     deriving (Eq, Ord, Show)
 
 data RoomPosType
-    = RoomPosOnPath {_onPathFromEdges :: S.Set PathFromEdge}
-    | RoomPosOffPath {_offPathFromEdges :: S.Set PathFromEdge}
-    | RoomPosExLink
-    | RoomPosLab Int
+    = RoomPosOnGrid {_onPathFromEdges :: S.Set PathFromEdge}
+    | RoomPosOffGrid {_offPathFromEdges :: S.Set PathFromEdge}
     deriving (Eq, Ord, Show)
 
 data UsedPos