Commit mid big tree composing change

src/Dodge/Room/LongDoor.hs

@@ -3,6 +3,7 @@
  -}
 module Dodge.Room.LongDoor where
 import Dodge.Data
+import Dodge.UseAll
 import Dodge.RoomLink
 import Dodge.Base
 import Dodge.Tree
@@ -139,11 +140,12 @@ slowDoorRoom = do
     proom <- southPillarsRoom x y h
     addButtonSlowDoor x h (proom & rmPmnts %~ (++ (crits ++ barrels)))
 
-slowDoorRoomRunPast :: RandomGen g => State g (LabSubCompTree Room)
+slowDoorRoomRunPast :: RandomGen g => State g (LabTree Room)
 slowDoorRoomRunPast = do
     r <- slowDoorRoom
-    return (treeFromTrunk [PassDown door] $ Node (PassDown r)
-        [ singleUseAll door
-        , return (UseLabel 0 $ door & rmConnectsTo .~ S.member InLink)
+    return ( toOnward "slowDoorRoomRunPast"
+        , treeFromTrunk [ door] $ Node ( r)
+        [ pure $ useAll door
+        , return (useLabel 0 $ door & rmConnectsTo .~ S.member InLink)
         ] 
-        ,TreeSubLabelling "slowDoorRoomRunPast" Nothing)
+        )