Update default config, general cleanup

2025-10-08 13:48:53 +01:00
parent 031f07f14c
commit f1ddcaa497
8 changed files with 29 additions and 12 deletions
@@ -197,6 +197,7 @@ tutLight :: State LayoutVars (MetaTree Room String)
 tutLight = do
    x <- shuffleRoomPos =<< chasmSimpleMaze
    y <- chasmSimpleMaze
+    z <- chasmSimpleMaze
    return $
        tToBTree "TutLight" $
            treePost
@@ -207,7 +208,8 @@ tutLight = do
                , corridor & rmPmnts .~ mempty
                , removeLights y
                , corridor & rmPmnts .~ mempty
-                , removeLights y
+                , removeLights z
+                , door
                , cleatOnward corridor & rmPmnts .~ mempty
                ]
  where