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