Make item display universal

2022-06-19 12:56:30 +01:00
parent df1f3ad6b0
commit 541a04f1bc
22 changed files with 349 additions and 358 deletions
@@ -39,11 +39,7 @@ import Data.List (intersperse)
 initialAnoTree :: Annotation
 initialAnoTree = OnwardList 
        $ intersperse (AnTree corDoor)
--    [ IntAnno $ AnTree . startRoom
-    [ AnRoom tanksPipesRoom
-    , AnRoom tanksPipesRoom
-    , AnRoom $ tanksRoom [] []
-    , AnRoom roomPillarsPassage
+    [ IntAnno $ AnTree . startRoom
    , AnTree firstBreather
 --     ,  (SpecificRoom . return . tToBTree $ treePost [corridor,corridor,cleatOnward corridor])
    , AnRoom $ roomCCrits 10