Commit before further changes to MetaTrees

src/Dodge/Tree/Compose/Data.hs

@@ -11,6 +11,11 @@ data MetaTree a
     = MTree {_mtLabel :: String , _mtTree :: MetaTree a , _mtBranches :: [MetaBranch a] }
     | BTree {_btLabel :: String , _btValue :: a ,         _btBranches :: [MetaTree a] }
 
+mRootLabel :: MetaTree a -> String
+mRootLabel mt = case mt of
+    MTree {} -> _mtLabel mt
+    BTree {} -> _btLabel mt
+
 --type CompTree a = Tree (Tree a)
 type LabTree a = (a -> Maybe ([String],a),Tree a)
 type LabCompTree a = Tree (LabTree a)