Skip to content

P
purescript-gargantext
Commit f9449199 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[CODE DESIGN] small cosmetics

parent 6dc93d93
Hide whitespace changes
Inline Side-by-side
Showing with 8 additions and 4 deletions
src/Gargantext/Components/Forest/Tree/Node/Action/Add.purs
View file @ f9449199
...@@ -72,10 +72,14 @@ addNodeView p@{ dispatch, nodeType, nodeTypes } = R.createElement el p [] ...@@ -72,10 +72,14 @@ addNodeView p@{ dispatch, nodeType, nodeTypes } = R.createElement el p []
-> R.Element -> R.Element
panelBody (_ /\ setNodeName) (nt /\ setNodeType) = panelBody (_ /\ setNodeName) (nt /\ setNodeType) =
H.div {className: "panel-body"} H.div {className: "panel-body"}
[ H.div {className: "row", style: {"margin":"10px"}} [ H.div { className: "row"
[ H.div {className: "col-md-10"} , style: {"margin":"10px"}
[ H.form {className: "form-horizontal"} $ maybeChoose <> maybeEdit ] }
] [ H.div { className: "col-md-10" }
[ H.form {className: "form-horizontal"}
$ maybeChoose <> maybeEdit
]
]
] ]
where where
maybeChoose = [ formChoiceSafe nodeTypes Error setNodeType ] maybeChoose = [ formChoiceSafe nodeTypes Error setNodeType ]
......
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