Tree: add <ul> for leaves too

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