Rename ItemAttachments

2022-06-15 08:21:53 +01:00
parent 485c42eb24
commit bf1bfa5453
15 changed files with 98 additions and 80 deletions
@@ -38,8 +38,9 @@ import Data.List (intersperse)

 initialAnoTree :: Annotation
 initialAnoTree = OnwardList 
-        $ intersperse (AnTree $ tToBTree "door" . pure <$> shuffleLinks (cleatOnward door))
+        $ intersperse (AnTree corDoor)
    [ IntAnno $ AnTree . startRoom
+    , AnTree firstBreather
 --     ,  (SpecificRoom . return . tToBTree $ treePost [corridor,corridor,cleatOnward corridor])
    , AnRoom $ roomCCrits 10
    , AnTree $ tToBTree "spawners" <$> spawnerRoom