From 6f02efe0abbc2b6732c346fb10958640274f615d Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Sat, 2 Jul 2022 11:35:47 +0100
Subject: [PATCH] Match Dodge.Floor with efficientRuntime branch

---
 src/Dodge/Floor.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Dodge/Floor.hs b/src/Dodge/Floor.hs
index 822e0ac31..393c1a8c1 100644
--- a/src/Dodge/Floor.hs
+++ b/src/Dodge/Floor.hs
@@ -41,9 +41,9 @@ initialAnoTree :: Annotation
 initialAnoTree = OnwardList 
         $ intersperse (AnTree corDoor)
     [ IntAnno $ AnTree . startRoom
-    , AnRoom $ roomCCrits 10
     , AnRoom $ return airlock0
     , AnRoom slowDoorRoom
+--    , AnRoom $ roomCCrits 10
     , AnTree firstBreather
 --    , AnTree $ telRoomLev 1 >>= rToOnward "telRoomLev" . pure . cleatOnward
 --    ]