Refactor more instances to use streaming

2022-06-24 14:30:16 +01:00
parent b467a7dd91
commit 0270d423fd
2 changed files with 17 additions and 17 deletions
@@ -44,12 +44,13 @@ initialAnoTree = OnwardList
    , 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
    , AnRoom doubleCorridorBarrels