Status.purs 655 Bytes
Newer Older
1 2 3 4 5 6 7
module Gargantext.Components.Forest.Tree.Node.Status where

import Gargantext.Types
import Gargantext.Components.Forest.Tree.Node.Settings (NodeAction(..))

------------------------------------------------------------------------
-- Beta Status
8
data Status = Stable | Test | Dev
9 10

hasStatus :: NodeType -> NodeAction -> Status
11
hasStatus _ SearchBox         = Test
Alexandre Delanoë's avatar
Alexandre Delanoë committed
12
hasStatus _ Refresh           = Dev
13
hasStatus _ Config            = Dev
Alexandre Delanoë's avatar
Alexandre Delanoë committed
14 15 16
hasStatus _ (Merge _)         = Dev
hasStatus _ (Documentation _) = Dev
hasStatus Annuaire Upload     = Dev
Alexandre Delanoë's avatar
Alexandre Delanoë committed
17
hasStatus Texts    Upload     = Dev
18
hasStatus Corpus   (Add _)    = Dev
19
hasStatus _ _                 = Stable
20