Commit mid big tree composing change

src/Dodge/Room/Branch.hs

@@ -15,13 +15,13 @@ import Dodge.Tree
 import Control.Monad.State
 import System.Random
 
-branchRectWith :: RandomGen g => State g (SubCompTree Room) ->  State g (SubCompTree Room)
+branchRectWith :: RandomGen g => State g (Tree Room) ->  State g (Tree Room)
 branchRectWith t = do
     x <- state $ randomR (100,200)
     y <- state $ randomR (100,200)
     b <- t
     rt <- shuffleLinks $ roomRectAutoLinks x y
-    return $ Node (PassDown rt) 
-        [ Node (UseAll door) []
-        , changeToPassDown <$> treeFromTrunk [PassDown door] b
+    return $ Node ( rt) 
+        [ Node (useAll door) []
+        , changeTo <$> treeFromTrunk [ door] b
         ]