Utils.purs 401 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 MapTerm = "graph-term"
James Laver's avatar
James Laver committed
7 8
termClass StopTerm = "stop-term"
termClass CandidateTerm = "candidate-term"
9 10

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