Fix button not updating bug

2022-06-14 18:47:11 +01:00
parent dafbd8a2da
commit 0957c79e58
10 changed files with 51 additions and 67 deletions
@@ -38,7 +38,7 @@ import Data.List (intersperse)

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