Commit 3b60b4ef authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[tree] small forest refactor

parent ef97d9af
......@@ -74,7 +74,7 @@ forest = R.createElement forestCpt
)
(cpt' openNodes asyncTasks appReload reload showLogin backend)
cpt' openNodes asyncTasks appReload reload showLogin backend (frontends /\ currentRoute /\ sessions /\ _ /\ _ /\ _ /\ _ /\ handed) = do
pure $ R2.row $ [plus handed showLogin backend] <> trees
pure $ R2.row $ [ plus handed showLogin backend ] <> trees
where
trees = tree <$> unSessions sessions
tree s@(Session {treeId}) =
......@@ -91,9 +91,9 @@ forest = R.createElement forestCpt
plus :: Handed -> R.Setter Boolean -> R.State (Maybe Backend) -> R.Element
plus handed showLogin backend = H.div { className: handedClass } [
H.button { title: "Add or remove connections to the server(s)."
H.button { className: "btn btn-default"
, on: {click}
, className: "btn btn-default"
, title: "Add or remove connections to the server(s)."
}
[ H.div { "type": ""
, className: "fa fa-universal-access fa-lg"
......
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