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

[CSS] button tree access

parent 367c8d03
......@@ -63,7 +63,7 @@ forestCpt = R.hooksComponent "G.C.Forest.forest" cpt where
plus :: R2.Setter Boolean -> R.Element
plus showLogin =
H.button { on: {click}
, className: "btn btn-primary"
, className: "btn btn-default"
}
[ H.div { "type": ""
, className: "fa fa-universal-access fa-lg"
......
......@@ -255,7 +255,6 @@ fldr _ true = "fa fa-folder-open"
fldr _ false = "fa fa-folder-o"
{-
------------------------------------------------------------
instance ordNodeType :: Ord NodeType 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