Commit mid big tree composing change

src/Dodge/Room/LongRoom.hs

@@ -1,5 +1,6 @@
 --{-# LANGUAGE TupleSections #-}
 module Dodge.Room.LongRoom where
+import Dodge.UseAll
 import Dodge.RoomLink
 import Dodge.Tree
 --import Dodge.Default.Room
@@ -46,16 +47,15 @@ longRoom = do
                 | crx <- [12.5,37.5,62.5] ] ++
         [sPS (V2 25 lampy ) 0 putLamp | lampy <- [20,h-10] ]
 
-longRoomRunPast :: RandomGen g => State g (LabSubCompTree Room)
+longRoomRunPast :: RandomGen g => State g (LabTree Room)
 longRoomRunPast = do
     r <- longRoom
-    return (treeFromTrunk [PassDown door]
-        (Node (PassDown r)
-            [ singleUseAll door
-            --, return (UseLabel 0 $ door & rmConnectsTo .~ S.singleton InLink)
-            --, treeFromPost [PassDown $ corridor & rmConnectsTo .~ S.member InLink, PassDown corridor] 
-            , treeFromPost [PassDown $ corridor & rmConnectsTo .~ S.member InLink] 
-                (UseLabel 0 door)
+    return (toOnward "longRoomRunPast"
+        , treeFromTrunk [ door]
+        (Node ( r)
+            [ pure door
+            , treeFromPost [ corridor & rmConnectsTo .~ S.member InLink] 
+                (useLabel 0 door)
             ]
         )
-        ,TreeSubLabelling "longRoomRunPast" Nothing)
+        )