Work towards cross-room placements

src/Dodge/Room/Corridor.hs

@@ -17,7 +17,7 @@ corridor = defaultRoom
     { _rmPolys = [poly]
     , _rmLinks = lnks
     , _rmPath  = concatMap (doublePair . (,) (V2 20 60) . fst) lnks
-    , _rmPS    = [ spanLightI (V2 0 40) (V2 40 40) ]
+    , _rmPmnts    = [ spanLightI (V2 0 40) (V2 40 40) ]
     , _rmBound = [ rectNSWE 50 30 0 40 ]
     , _rmFloor = [makeTileFromPoly poly 2]  
     }
@@ -39,7 +39,7 @@ corridorDebug = defaultRoom
         ]
     , _rmLinks = lnks
     , _rmPath  = concatMap (doublePair . (,) (V2 20 60) . fst) lnks
-    , _rmPS    = []
+    , _rmPmnts    = []
     , _rmBound = [ rectNSWE 50 30 0 40 ]
     }
   where 
@@ -55,7 +55,7 @@ corridorN = defaultRoom
                  ]
     , _rmLinks = lnks
     , _rmPath  = pth
-    , _rmPS    = []
+    , _rmPmnts    = []
     , _rmBound = [ rectNSWE 50 30 0 40 ]
     }
     where lnks = [(V2 20 70  ,0)
@@ -70,7 +70,7 @@ tEast = defaultRoom
                  ]
     , _rmLinks = lnks
     , _rmPath  = concatMap (doublePair . (,) (V2 0 60) . fst) lnks
-    , _rmPS    = []
+    , _rmPmnts    = []
     , _rmBound = [ rectNSWE 70 10 0 40 ]
     }
   where 
@@ -86,7 +86,7 @@ tWest = defaultRoom
                  ]
     , _rmLinks = lnks
     , _rmPath  = concatMap (doublePair . (,) (V2 0 60) . fst) lnks
-    , _rmPS    = []
+    , _rmPmnts    = []
     , _rmBound = [ rectNSWE 70 10 0 40 ]
     }
   where