Cleanup

src/Dodge/Room/Start.hs

@@ -46,7 +46,7 @@ powerFakeout = do
             ++ randcors
             ++ [ corridor & rmPmnts .:~ plRRpt 0 (PutFlIt shrinkGun)
                 , keyholeCorridor, corridor])
-        `treeFromPost` useAll door
+        `treeFromPost` cleatOnward door
 
 startRoom :: RandomGen g => Int -> State g (LabTree Room)
 startRoom i = join (takeOne
@@ -80,7 +80,7 @@ runPastStart i = do
 rezBoxStart :: RandomGen g => State g (Tree Room)
 rezBoxStart = do
     ls <- rezColor
-    return $ treeFromPost [ rezBox ls] (useAll door)
+    return $ treePost [ rezBox ls, cleatOnward door ]
 
 rezBoxesThenWeaponRoom :: RandomGen g => Int -> State g (Tree Room,String)
 rezBoxesThenWeaponRoom i = do