Allow for random composition of trees

src/Dodge/Tree/Shift.hs

@@ -10,7 +10,7 @@ module Dodge.Tree.Shift
 --import Dodge.LevelGen.Data
 import Dodge.Data
 import Dodge.Room.Link
-import Dodge.Tree.Polymorphic
+import TreeHelp
 import Dodge.RoomLink
 import Geometry.ConvexPoly
 --import Geometry.Data
@@ -19,7 +19,6 @@ import LensHelp hiding (Empty, (<|) , (|>))
 --import Control.Lens hiding (Empty, (<|) , (|>))
 
 import qualified Data.Set as S
-import Data.Tree
 import qualified Data.Sequence as Seq
 import Data.List (delete)
 import Data.Bifunctor
@@ -100,7 +99,7 @@ posRms prs parenti@(parent,_) ( (numChild,t@(Node childi _) ):its) tseq = do
                     , _rpLinkStatus = UsedInLink (_rlType il) (snd parenti)
                     , _rpPlacementUse = 0
                     }
-            shiftedt = applyToRoot
+            shiftedt = over root
                 (first $ updatechild . shiftRoomShiftToLink (lnkPosDir shiftedoutlink) (lnkPosDir il)) 
                 t