Cleanup

src/Dodge/Room/Containing.hs

@@ -21,18 +21,16 @@ roomsContaining crs its = do
         [ randomFourCornerRoomCrsIts crs its 
         , tanksRoom crs its
         ]
-    return (toOnward ("roomsContaining-creatures:" ++ intercalate "," (map _crName crs) 
+    rToOnward ("roomsContaining-creatures:" ++ intercalate "," (map _crName crs) 
             ++ "-items:" ++ intercalate "," (map (show . _iyBase . _itType) its))
-        , pure $ useAll endroom
-        )
+        $ pure $ cleatOnward endroom
 roomsContaining' :: RandomGen g => [Creature] -> [Item] -> State g (Tree Room)
 roomsContaining' crs its = do
     endroom <- join $ takeOne
         [ randomFourCornerRoomCrsIts crs its 
         , tanksRoom crs its
         ]
-    return (pure $ useAll endroom
-        )
+    return (pure $ cleatOnward endroom)
 
 pedestalRoom :: RandomGen g => Item -> State g Room
 pedestalRoom it = do