Cleanup

src/Dodge/Room/RezBox.hs

@@ -60,7 +60,7 @@ rezBoxesWp = do
     adddoor rm = treeFromPost [ connectsToNorth door ] rm
     connectsToNorth = rmConnectsTo .~ S.member (OnEdge North)
 maybeBlockedPassage :: RandomGen g => State g (Tree Room)
-maybeBlockedPassage = fmap (pure . useAll)
+maybeBlockedPassage = fmap (pure . cleatOnward)
     $ join $ takeOne [return corridor, blockedCorridorCloseBlocks]
 rezBoxesWpCrit :: RandomGen g => State g (Tree Room)
 rezBoxesWpCrit = do
@@ -100,7 +100,7 @@ rezBoxes = do
             & rmLinks %~ setInLinks bottomEdgeTest
     let n = length $ filter bottomEdgeTest $_rmLinks centralRoom
     return $ treeFromTrunk [rezBox thecol,  door] 
-        $ Node centralRoom (replicate (n-1) dbox ++ [Node (useAll door) []])
+        $ Node centralRoom (replicate (n-1) dbox ++ [Node (cleatOnward door) []])
 
 rezColor :: RandomGen g => State g LightSource
 rezColor = do