Cleanup

2022-06-11 14:37:05 +01:00
parent 9c9ec9c553
commit de71c61409
18 changed files with 107 additions and 134 deletions
@@ -37,11 +37,10 @@ import System.Random
 blinkAcrossChallenge :: RandomGen g => State g (LabTree Room)
 blinkAcrossChallenge = do
    teleFromRoom <- shuffleLinks $ roomRectAutoLinks 200 200
-    teleToRoom <- shuffleLinks $ roomRectAutoLinks 200 200
-    emptylink <- shuffleLinks emptyCorridor 
-    return (toOnward "blinkAcrossChallenge"
-        ,treeFromPost [ teleFromRoom, emptylink] (useAll teleToRoom)
-        )
+    teleToRoom  <- shuffleLinks $ roomRectAutoLinks 200 200
+    emptylink   <- shuffleLinks emptyCorridor 
+    rToOnward "blinkAcrossChallenge"
+        $ treePost [ teleFromRoom, emptylink, cleatOnward teleToRoom]

 emptyCorridor :: Room
 emptyCorridor = corridor & rmPolys .~ []