Cleanup

2022-06-11 14:37:05 +01:00
parent 9c9ec9c553
commit de71c61409
18 changed files with 107 additions and 134 deletions
@@ -59,7 +59,7 @@ longBlockedCorridor maxn = do
            ,sPS (V2 20 15) 0 putLamp
            ]
    sequence $ treeFromPost (replicate n $ shuffleLinks corridor) 
-                        $ return $ useAll $ set rmPmnts plmnts corridor
+                        $ return $ cleatOnward $ set rmPmnts plmnts corridor

 -- | A single corridor with a destructible block blocking it.
 blockedCorridor :: RandomGen g => State g (Tree Room)