Commit before generalising FromWest/South etc

src/Dodge/Tree/Compose.hs

@@ -9,16 +9,11 @@ module Dodge.Tree.Compose
     , numSelfTree
     , combineTree
     , decomposeSelfTree
---    , composeTree'
     , shiftChildren
     , attachTree
---    , composeTreeRand
---    , composeAndLog
     , toOnward
     , attachOnward
     , showIntsString
---    , cmpToMT
---    , compTree
     , module Dodge.Tree.Compose.Data
     ) where
 import Dodge.Data

src/Dodge/Tree/Compose/Data.hs

@@ -5,7 +5,6 @@ import Data.Tree
 import Control.Lens
 
 
---data MetaTree a = MTree {_mtLabel :: String , _mtTree :: MetaNode a , _mtBranches :: [MetaBranch a] }
 data MetaTree a b = MTree {_mtLabel :: b , _mtTree :: MetaNode a b, _mtBranches :: [MetaBranch a b] }
 data MetaNode a b = NodeTree {_nodeTree :: Tree a} | NodeMTree {_nodeMetaTree :: MetaTree a b}
 data MetaBranch a b = MBranch {_mbAttach :: a -> Maybe a, _mbTree :: MetaTree a b}