Commit mid big tree composing change

2022-06-09 21:25:22 +01:00
parent 8fb80f9691
commit 3edc7a0a58
20 changed files with 263 additions and 248 deletions
@@ -33,12 +33,12 @@ import LensHelp
 import Control.Monad.State
 import System.Random

-blinkAcrossChallenge :: RandomGen g => State g (LabSubCompTree Room)
+blinkAcrossChallenge :: RandomGen g => State g (LabTree Room)
 blinkAcrossChallenge = do
    teleFromRoom <- shuffleLinks $ roomRectAutoLinks 200 200
    teleToRoom <- shuffleLinks $ roomRectAutoLinks 200 200
    emptylink <- shuffleLinks emptyCorridor 
-    return (treeFromPost [PassDown teleFromRoom,PassDown emptylink] (UseAll teleToRoom)
+    return (treeFromPost [ teleFromRoom, emptylink] (useAll teleToRoom)
        , TreeSubLabelling "blinkAcrossChallenge" Nothing)

 emptyCorridor :: Room