Commit mid big tree composing change

src/Dodge/Room/Warning.hs

@@ -36,13 +36,14 @@ import qualified Data.Map.Strict as M
 --import qualified Data.Text as T
 
 
-warningRooms :: RandomGen g => Int -> State g (LabSubCompTree Room)
+warningRooms :: RandomGen g => Int -> State g (LabTree Room)
 warningRooms n = do
     rm <- takeOne [roomNgon 8 200, roomRectAutoLinks 200 200]
     cenroom <- shuffleLinks $ addWarningTerminal n rm
     let doorroom = triggerDoorRoom n
-    return ( treeFromPost [PassDown door,PassDown cenroom,PassDown doorroom] (UseAll door)
-        , TreeSubLabelling "warningRooms" Nothing)
+    return ( toOnward "warningRooms"
+        , treeFromPost [ door, cenroom, doorroom] (useAll door)
+        )
 
 addWarningTerminal :: Int -> Room -> Room
 addWarningTerminal outplid = (rmName .++~ "warningTerm-")