Commit 6054f3a8 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[DESIGN] color of candidate (needs transparency)

parent 111e9651
......@@ -132,4 +132,5 @@ annotatedRunComponent = R.staticComponent "AnnotatedRun" cpt
case list of
Nothing -> HTML.span { on: { mouseUp: cb } }
Just l -> HTML.span { className: "annotation-run bg-" <> termBootstrapClass l
, on: { click: cb } }
, on: { click: cb }
}
......@@ -10,4 +10,4 @@ termClass CandidateTerm = "candidate-term"
termBootstrapClass :: TermList -> String
termBootstrapClass MapTerm = "success"
termBootstrapClass StopTerm = "danger"
termBootstrapClass CandidateTerm = "warning"
termBootstrapClass CandidateTerm = "secondary"
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