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
hasStatus _ (Merge _)         = Dev
hasStatus _ (Documentation _) = Dev
16 17
hasStatus Annuaire  Upload    = Dev
hasStatus NodeTexts Upload    = Dev
18
hasStatus Corpus   (Add _)    = Dev
19
hasStatus _ _                 = Stable
20