Make Shapes use Streaming rather than Vector streaming

2022-07-03 23:04:58 +01:00
parent 02fcb5f072
commit f9a904d52b
11 changed files with 54 additions and 47 deletions
@@ -42,8 +42,8 @@ initialAnoTree = OnwardList
        $ intersperse (AnTree corDoor)
    [ IntAnno $ AnTree . startRoom
    , AnRoom $ return airlock0
-    , AnRoom $ roomCCrits 10
    , AnRoom slowDoorRoom
+    , AnRoom $ roomCCrits 10
    , AnTree firstBreather
    , AnTree $ telRoomLev 1 >>= rToOnward "telRoomLev" . pure . cleatOnward
    ]