[list selection] listTree stub

parent 07d22861
...@@ -86,3 +86,10 @@ idsSelectorCpt = here.component "idsSelector" cpt where ...@@ -86,3 +86,10 @@ idsSelectorCpt = here.component "idsSelector" cpt where
else SelectedLists (A.cons val lst) else SelectedLists (A.cons val lst)
f x = x f x = x
T.modify_ f selection T.modify_ f selection
listTree :: R2.Component IdsSelectorProps
listTree = R.createElement listTreeCpt
listTreeCpt :: R.Component IdsSelectorProps
listTreeCpt = here.component "listTree" cpt where
cpt { ids, selection } _ = do
pure $ H.div {} []
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment