Commit before moving button press events from events into your control

2022-06-29 12:12:45 +01:00
parent 5501d6f9b5
commit 4b8155ae16
8 changed files with 55 additions and 28 deletions
@@ -45,13 +45,13 @@ initialAnoTree = OnwardList
    , AnRoom slowDoorRoom
 --    , AnRoom $ roomCCrits 10
    , AnTree firstBreather
-    , AnTree $ telRoomLev 1 >>= rToOnward "telRoomLev" . pure . cleatOnward
-    ]
-
-extraAnoList :: [Annotation]
-extraAnoList =
--     ,  (SpecificRoom . return . tToBTree $ treePost [corridor,corridor,cleatOnward corridor])
-    [ AnRoom $ roomCCrits 10
+--    , AnTree $ telRoomLev 1 >>= rToOnward "telRoomLev" . pure . cleatOnward
+--    ]
+--
+--extraAnoList :: [Annotation]
+--extraAnoList =
+----     ,  (SpecificRoom . return . tToBTree $ treePost [corridor,corridor,cleatOnward corridor])
+--    [ AnRoom $ roomCCrits 10
    , AnRoom $ roomCCrits 10
    , AnTree $ tToBTree "spawners" <$> spawnerRoom
    , AnRoom pistolerRoom