Add log when generating layout

2022-05-20 21:15:44 +01:00
parent 20d041fc59
commit da302aad0c
16 changed files with 155 additions and 94 deletions
@@ -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