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
@@ -55,7 +55,7 @@ pedestalRoom it = do
    r <-
        takeOne
            [ shuffleLinks =<< (centerVaultRoom x x 50 <&> rmPmnts .:~ sps0 flit)
-            , shuffleLinks $ roomRectAutoLinks (2 * x) (2 * x) & rmPmnts .:~ sPS (V2 x x) 0 flit
-            , shuffleLinks $ roomNgon ngon x & rmPmnts .:~ sps0 flit
+            , shuffleLinks =<< (roomRectAutoLinks (2 * x) (2 * x) <&> rmPmnts .:~ sPS (V2 x x) 0 flit)
+            , shuffleLinks =<< (roomNgon ngon x <&> rmPmnts .:~ sps0 flit)
            ]
    r <&> rmName .++~ "ped-"