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 -- ]