BROKEN partial redo of room tree composition

src/Dodge/Room/Containing.hs

@@ -8,6 +8,7 @@ import Dodge.Room.Procedural
 import Dodge.Room.Tanks
 import Dodge.Room.Link
 import Dodge.Room.Ngon
+import Dodge.UseAll
 import LensHelp
 import Geometry
 --import Dodge.Item.Equipment
@@ -20,9 +21,10 @@ roomsContaining crs its = do
         [ randomFourCornerRoomCrsIts crs its 
         , tanksRoom crs its
         ]
-    return (treeFromPost [] $ UseAll endroom
-        ,TreeSubLabelling ("roomsContaining-creatures:" ++ intercalate "," (map _crName crs) 
-            ++ "-items:" ++ intercalate "," (map (show . _iyBase . _itType) its)) Nothing)
+    return (toOnward ("roomsContaining-creatures:" ++ intercalate "," (map _crName crs) 
+            ++ "-items:" ++ intercalate "," (map (show . _iyBase . _itType) its))
+        , pure $ useAll endroom
+        )
 
 pedestalRoom :: RandomGen g => Item -> State g Room
 pedestalRoom it = do