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