Add log when generating layout

src/Dodge/Tree/Compose.hs

@@ -35,7 +35,7 @@ overwriteLabel i f t ts = errorHead ("tried to overwriteLabel " ++ show i)
   where
     islabel (UseLabel j _) | i == j = True
     islabel _ = False
-    update (Node cr _) = Node (f $ _unCompose cr) ts
+    update (Node x _) = Node (f $ _unCompose x) ts
 
 passUntilUseAll :: SubCompTree a -> [SubCompTree a] -> SubCompTree a
 passUntilUseAll (Node (UseAll x) _) ts' = Node (PassDown x) ts'

src/Dodge/Tree/Compose/Data.hs

@@ -12,4 +12,11 @@ data ComposingNode a
     | UseLabel  {_composeIndex :: Int, _unCompose :: a} -- defaults to using no children
 type SubCompTree a = Tree (ComposingNode a)
 type CompTree a = Tree (SubCompTree a)
+type LabSubCompTree a = (Tree (ComposingNode a),TreeSubLabelling)
+type LabCompTree a = Tree (LabSubCompTree a)
+data TreeSubLabelling = TreeSubLabelling
+    { _topLabel :: String
+    , _subLabels :: Maybe (Tree TreeSubLabelling)
+    }
 makeLenses ''ComposingNode
+makeLenses ''TreeSubLabelling