Fold in new composing room datatype

src/Dodge/Room/Branch.hs

@@ -15,14 +15,13 @@ import Control.Monad.State
 import System.Random
 import Data.Tree
 
-branchRectWith :: RandomGen g => State g (Tree (Either Room Room)) ->  State g (Tree (Either Room Room))
+branchRectWith :: RandomGen g => State g (SubCompTree Room) ->  State g (SubCompTree Room)
 branchRectWith t = do
     x <- state $ randomR (100,200)
     y <- state $ randomR (100,200)
     b <- t
     root <- randomiseOutLinks $ roomRectAutoLinks x y
-    return $ Node (Left root) [Node (Right door) [], rToL <$> treeFromTrunk [Left door] b]
+    return $ Node (PassDown root) [Node (UseAll door) [], rToL <$> treeFromTrunk [PassDown door] b]
   where 
-    rToL :: Either a a -> Either a a
-    rToL (Right r) = Left r
-    rToL (Left r)  = Left r
+    rToL (UseAll r) = PassDown r
+    rToL (PassDown r)  = PassDown r