Commit before door refactor

src/Dodge/Floor.hs

@@ -2,8 +2,9 @@
 --{-# OPTIONS_GHC -Wno-unused-imports #-}
 {- | The tree of rooms that make up a level. -}
 module Dodge.Floor
-    ( initialRoomTree
-    ) where
+--    ( initialRoomTree
+--    ) 
+    where
 import Dodge.Cleat
 --import Geometry.Data
 --import Dodge.Data
@@ -40,9 +41,15 @@ initialAnoTree :: Annotation
 initialAnoTree = OnwardList 
         $ intersperse (AnTree corDoor)
     [ IntAnno $ AnTree . startRoom
+    , 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
+    [ AnRoom $ roomCCrits 10
     , AnTree $ tToBTree "spawners" <$> spawnerRoom
     , AnRoom pistolerRoom
     , AnRoom doubleCorridorBarrels
@@ -101,7 +108,6 @@ initialAnoTree = OnwardList
 --    ,[TreasureAno [addArmour autoCrit,addArmour autoCrit] [launcher]]
 --    ,[Corridor]
     ,AnTree $ randomFourCornerRoom [] >>= rToOnward "randomFourCornerRoom" . pure . cleatOnward 
-    ,AnTree $ telRoomLev 1 >>= rToOnward "telRoomLev" . pure . cleatOnward
     ]
 
 {- | A test level tree. -}