Redo tree composition

src/Dodge/LockAndKey.hs

@@ -1,5 +1,6 @@
 --{-# LANGUAGE TupleSections #-}
 module Dodge.LockAndKey where
+import Dodge.UseAll
 import Dodge.Data
 import Dodge.Tree
 --import Dodge.LevelGen.Data
@@ -114,7 +115,7 @@ someCrits = do
 corridorBoss :: RandomGen g => Creature -> State g (LabTree Room)
 corridorBoss cr = do
     endroom <- bossRoom cr
-    return (treeFromPost (replicate 5 $  corridor) 
-                            ( endroom)
-        ,TreeSubLabelling ("corridorBoss-"++_crName cr) Nothing)
+    return ( toOnward ("corridorBoss-"++_crName cr)
+        , treeFromPost (replicate 5 $  corridor) ( endroom)
+        )