Commit f9449199 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[CODE DESIGN] small cosmetics

parent 6dc93d93
...@@ -72,9 +72,13 @@ addNodeView p@{ dispatch, nodeType, nodeTypes } = R.createElement el p [] ...@@ -72,9 +72,13 @@ 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
......
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