Commit before further changes to MetaTrees

src/Dodge/Room/Start.hs

@@ -72,7 +72,7 @@ runPastStart :: RandomGen g => Int -> State g (Tree Room)
 runPastStart i = do
     s <- rezBoxStart
     rp <- lookedStart i
-    return . shiftChildren $ attachTree toOnward' rp $ fmap ([],) s
+    return . shiftChildren $ attachTree toOnward rp $ fmap ([],) s
     
 
 rezBoxStart :: RandomGen g => State g (Tree Room)
@@ -84,13 +84,13 @@ rezBoxesThenWeaponRoom :: RandomGen g => Int -> State g (MetaTree Room)
 rezBoxesThenWeaponRoom i = do
     rboxes <- rezBoxes
     wroom  <- weaponRoom i
-    return $ MTree "rezBoxesThenWeaponRoom" (tToBTree rboxes) [MBranch "" toOnward' wroom]
+    return $ tToBTree rboxes `attachOnward` wroom
 
 rezBoxThenWeaponRoom :: RandomGen g => Int -> State g (MetaTree Room)
 rezBoxThenWeaponRoom i = do
     rcol <- rezColor
     wroom <- weaponRoom i
-    return $ tToBTree (treePost [ rezBox rcol, cleatOnward door]) `attachOnward` wroom
+    return $ tToBTree (treePost [rezBox rcol, cleatOnward door]) `attachOnward` wroom
 
 rezBoxThenRoom :: RandomGen g => Room -> State g (Tree Room)
 rezBoxThenRoom r = do