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
@@ -13,8 +13,8 @@ import System.Random

 blinkAcrossChallenge :: RandomGen g => State g (MetaTree Room String)
 blinkAcrossChallenge = do
-    teleFromRoom <- shuffleLinks $ roomRectAutoLinks 200 200
-    teleToRoom <- shuffleLinks $ roomRectAutoLinks 200 200
+    teleFromRoom <- shuffleLinks =<< roomRectAutoLinks 200 200
+    teleToRoom <- shuffleLinks =<< roomRectAutoLinks 200 200
    emptylink <- shuffleLinks emptyCorridor
    rToOnward "blinkAcrossChallenge" $
        treePost [teleFromRoom, emptylink, cleatOnward teleToRoom]