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
@@ -17,7 +17,7 @@ branchRectWith t = do
    x <- state $ randomR (100, 200)
    y <- state $ randomR (100, 200)
    b <- t
-    rt <- shuffleLinks $ roomRectAutoLinks x y
+    rt <- shuffleLinks =<< roomRectAutoLinks x y
    return $
        Node
            rt