Tweak block sounds

2021-11-18 03:50:54 +00:00
parent 94552ff658
commit 147d6098ab
12 changed files with 114 additions and 89 deletions
@@ -75,5 +75,4 @@ runPastRoom = do
        critrooms :: [Tree (Either Room Room)]
        critrooms = treeFromPost [Left switchdoor] (Left critroom) : 
            replicate (n-2) (treeFromPost [Left switchdoor] (Left linkcor))
-    return $ treeFromTrunk [Left door] 
-        $ Node (Left cenroom) (controom : critrooms ++ [return $ Left aswitchroom])
+    return $ Node (Left cenroom) (controom : critrooms ++ [return $ Left aswitchroom])