Utils.purs 449 Bytes
Newer Older
James Laver's avatar
James Laver committed
1 2 3 4 5
module Gargantext.Components.Annotation.Utils where

import Gargantext.Types ( TermList(..) )

termClass :: TermList -> String
6
termClass CandidateTerm = "candidate-term"
7
termClass MapTerm = "graph-term"
James Laver's avatar
James Laver committed
8
termClass StopTerm = "stop-term"
9 10

termBootstrapClass :: TermList -> String
11
-- termBootstrapClass CandidateTerm = "warning"
12
termBootstrapClass MapTerm = "success"
13
termBootstrapClass StopTerm = "danger"
14
termBootstrapClass CandidateTerm = "primary"