Tweak ledge room, rename roomRectAutoLinks

src/Dodge/Room/RezBox.hs

@@ -95,7 +95,7 @@ rezBoxesWpCrit = do
     theweapon <- randBlockBreakWeapon
     let bottomEdgeTest (V2 _ y, _) = y < 1
         aroom = rezInvBox thecol
-    centralRoom <- roomRectAutoLinks w h <&> rmPmnts .~ []
+    centralRoom <- roomRectAutoLights w h <&> rmPmnts .~ []
     onwardpassage <-
         over root (rmConnectsTo .~ S.member (OnEdge West)) <$> maybeBlockedPassage
     let n = length $ filter bottomEdgeTest $ map (\rl -> (rl ^. rlPos, rl ^. rlDir)) 
@@ -127,7 +127,7 @@ rezBoxes = do
                 [door & rmConnectsTo .~ S.member (OnEdge South)]
                 (rezInvBox thecol)
     centralRoom <-
-        shuffleLinks =<< (roomRectAutoLinks w h <&> rmPmnts .~ []
+        shuffleLinks =<< (roomRectAutoLights w h <&> rmPmnts .~ []
                 <&> rmLinks %~ setInLinks bottomEdgeTest)
     let n = length $ filter bottomEdgeTest $ _rmLinks centralRoom
     return