Skip to content

P
purescript-gargantext
Unverified Commit cf70b0bd authored by Nicolas Pouillard's avatar Nicolas Pouillard
Browse files
Options

Tree: add <ul> for leaves too

parent e1b13395
Show whitespace changes
Inline Side-by-side
Showing with 9 additions and 5 deletions
src/Gargantext/Components/Tree.purs
View file @ cf70b0bd
...@@ -109,12 +109,16 @@ treeview = simpleSpec performAction render ...@@ -109,12 +109,16 @@ treeview = simpleSpec performAction render
toHtml :: (Action -> Effect Unit) -> FTree -> ReactElement toHtml :: (Action -> Effect Unit) -> FTree -> ReactElement
toHtml d (NTree (LNode {id, name, nodeType, open}) []) = toHtml d (NTree (LNode {id, name, nodeType, open}) []) =
ul []
[
li [] li []
[ a [ href "#"] [
a [ href "#"]
( [ text (name <> " ") ( [ text (name <> " ")
] <> nodeOptionsView false ] <> nodeOptionsView false
) )
] ]
]
toHtml d (NTree (LNode {id, name, nodeType, open}) ary) = toHtml d (NTree (LNode {id, name, nodeType, open}) ary) =
ul [ ] ul [ ]
[ li [] $ [ 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