More streaming refactoring

2022-06-24 23:37:01 +01:00
parent 0270d423fd
commit 3c2df2542a
10 changed files with 96 additions and 198 deletions
@@ -41,15 +41,16 @@ initialAnoTree :: Annotation
 initialAnoTree = OnwardList 
        $ intersperse (AnTree corDoor)
    [ IntAnno $ AnTree . startRoom
+    , AnRoom $ roomCCrits 10
    , AnRoom slowDoorRoom
    , AnTree firstBreather
    , AnTree $ telRoomLev 1 >>= rToOnward "telRoomLev" . pure . cleatOnward
--    ]
--
--extraAnoList :: [Annotation]
--extraAnoList =
----     ,  (SpecificRoom . return . tToBTree $ treePost [corridor,corridor,cleatOnward corridor])
--    [ AnRoom $ roomCCrits 10
+    ]
+
+extraAnoList :: [Annotation]
+extraAnoList =
+--     ,  (SpecificRoom . return . tToBTree $ treePost [corridor,corridor,cleatOnward corridor])
+    [ AnRoom $ roomCCrits 10
    , AnRoom $ roomCCrits 10
    , AnTree $ tToBTree "spawners" <$> spawnerRoom
    , AnRoom pistolerRoom