Test of lock and key system

src/Dodge/Tree/Compose/Data.hs

@@ -9,6 +9,7 @@ data ComposingNode a
     | UseAll    {_unCompose :: a}
     | UseSome   {_composeIndices :: [Int], _unCompose :: a}
     | UseNone   {_unCompose :: a}
+    | UseLabel  {_composeIndex :: Int, _unCompose :: a} -- defaults to using no children
 type SubCompTree a = Tree (ComposingNode a)
 type CompTree a = Tree (Tree (ComposingNode a))
 makeLenses ''ComposingNode