Work towards cross-room placements

src/Dodge/Room/RoadBlock.hs

@@ -41,7 +41,7 @@ litCorridor90 = do
             ,( V2   0  (h-40) , V2 20 (h-40) )
             ,( V2  40  (h-40) , V2 20 (h-40) )
             ]
-        , _rmPS    = 
+        , _rmPmnts    = 
             [ sPS (V2 20 (h-5)) 0     putLamp
             , spanLightI (V2 0 (0.4*h)) (V2 40 (0.4*h))
             , windowLine (V2 0 (h-20)) (V2 40 (h-20))
@@ -63,7 +63,7 @@ longBlockedCorridor = do
                  ,sPS (V2 20 15) 0 putLamp
                  ]
     sequence $ treeFromPost (replicate n $ Left <$> randomiseOutLinks corridor) 
-                        $ return $ Right $ set rmPS plmnts corridor
+                        $ return $ Right $ set rmPmnts plmnts corridor
 
 -- | A single corridor with a destructible block blocking it.
 blockedCorridor :: RandomGen g => State g (Tree (Either Room Room))
@@ -74,14 +74,14 @@ blockedCorridor = do
                                           $ reverse $ rectNSWE 10 (-10) (-10) 10
             ,spanLightI (V2 0 15) (V2 40 15)
             ]
-    sequence $ treeFromPost [] $ return $ Right $ set rmPS plmnts corridor
+    sequence $ treeFromPost [] $ return $ Right $ set rmPmnts plmnts corridor
 
 lasTunnel :: Room
 lasTunnel = defaultRoom
     { _rmPolys  = polys
     , _rmBound  = polys
     , _rmLinks  = [(V2 20 190,1.5* pi),(V2 0 20,0.5* pi)]
-    , _rmPS     = [putLasTurret & plSpot .~ PS (V2 10 240) (1.5*pi)
+    , _rmPmnts     = [putLasTurret & plSpot .~ PS (V2 10 240) (1.5*pi)
         , lowWall (rectNSEW 65 40 0 25)
         , mountLightV (V2 50 10) (V3 40 20 50)
         ]