Tree: add <ul> for leaves too

parent e1b13395
......@@ -109,12 +109,16 @@ treeview = simpleSpec performAction render
toHtml :: (Action -> Effect Unit) -> FTree -> ReactElement
toHtml d (NTree (LNode {id, name, nodeType, open}) []) =
ul []
[
li []
[ a [ href "#"]
[
a [ href "#"]
( [ text (name <> " ")
] <> nodeOptionsView false
)
]
]
toHtml d (NTree (LNode {id, name, nodeType, open}) ary) =
ul [ ]
[ li [] $
......
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