Tweak ledge room, rename roomRectAutoLinks

src/Dodge/Room/Procedural.hs

@@ -1,7 +1,7 @@
 -- | Procedural creation of rooms and subroom parts.
 module Dodge.Room.Procedural (
     roomRect,
-    roomRectAutoLinks,
+    roomRectAutoLights,
     randomFourCornerRoom,
     randomFourCornerRoomCrsIts,
     centerVaultRoom,
@@ -116,8 +116,8 @@ gridRoomPos xs ys = map makeonpos (grid xs ys) <> map makeoffpos (grid (mids xs)
 {- Creates a rectangular room, automatically creates links and pathfinding graph at a sensible size.  -}
 -- it is not clear to me that this works for very small rooms (but it does seem
 -- to do so)
-roomRectAutoLinks :: RandomGen g => Float -> Float -> State g Room
-roomRectAutoLinks x y = do
+roomRectAutoLights :: RandomGen g => Float -> Float -> State g Room
+roomRectAutoLights x y = do
     l1 <- mntLightLnkCond $ resetPLUse $ rprBool $ \rp _ -> isInLnk rp   
     l2 <- mntLightLnkCond $ resetPLUse $ rprBool $ \rp _ -> isOutLnk rp
     return $ roomRect x y (f x) (f y)