Commit 4767842e authored by Alexandre Delanoë's avatar Alexandre Delanoë

Merge branch 'dev-graph-sidebar-styling-fixes' of...

Merge branch 'dev-graph-sidebar-styling-fixes' of ssh://gitlab.iscpif.fr:20022/gargantext/purescript-gargantext into dev-merge
parents a41efb36 a594b2a7
...@@ -193,9 +193,9 @@ onClickRemove rType props' nodesMap' e = do ...@@ -193,9 +193,9 @@ onClickRemove rType props' nodesMap' e = do
badge :: R.State SigmaxT.NodeIds -> Record SigmaxT.Node -> R.Element badge :: R.State SigmaxT.NodeIds -> Record SigmaxT.Node -> R.Element
badge (_ /\ setNodeIds) {id, label} = badge (_ /\ setNodeIds) {id, label} =
RH.a { className: "badge badge-light" RH.a { className: "badge badge-pill badge-light"
, on: { click: onClick } , on: { click: onClick }
} [ RH.text label ] } [ RH.h6 {} [ RH.text label ] ]
where where
onClick e = do onClick e = do
setNodeIds $ const $ Set.singleton id setNodeIds $ const $ Set.singleton id
......
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