Cleanup

2025-10-29 12:18:55 +00:00
parent c9ec962575
commit 40c1907689
5 changed files with 11 additions and 16 deletions
@@ -94,13 +94,12 @@ addSouthPillars x h r = do
    return $ r & rmPmnts .++~ pillars

 addButtonSlowDoor :: RandomGen g => Float -> Float -> Room -> State g Room
-addButtonSlowDoor x h rm = do
-    shuffleLinks $
-        setOutLinksPD (f (> h + 40)) $
-            setInLinksPD (f (< h - 40)) $
-                rm
-                    & rmPmnts <>~ [butDoor, theterminal]
-                    & rmBound .:~ openDoorBound
+addButtonSlowDoor x h =
+    shuffleLinks
+        . setOutLinksPD (f (> h + 40))
+        . setInLinksPD (f (< h - 40))
+        . (rmPmnts <>~ [butDoor, theterminal])
+        . (rmBound .:~ openDoorBound)
  where
    f g y = g $ y ^. _1 . _y
    theterminal =