Make Placement into a product type

2025-09-02 12:31:55 +01:00
parent dc13c61dca
commit f278af0f30
29 changed files with 168 additions and 168 deletions
@@ -37,7 +37,7 @@ lockedStart i = do
    h <- state $ randomR (200, 400 :: Float)
    thels <- roomCritLS
    theweapon <- randBlockBreakWeapon
-    cenroom <- shuffleLinks $ roomRectAutoLinks 40 h & rmPmnts .~ []
+    cenroom <- shuffleLinks =<< (roomRectAutoLinks 40 h <&> rmPmnts .~ [])
    theedge <- takeOne $ map OnEdge [West, East]
    let linkcor = smallRoom & rmPmnts .~ [spanLS thels (V2 0 65) (V2 40 65)]
        n = length $ filter (elem theedge . _rlType) (_rmLinks cenroom)