[FIX] warnings + status

src/Gargantext/Components/Forest/Tree/Node/Box.purs

@@ -224,9 +224,9 @@ buttonClickCpt = R.hooksComponent "G.C.F.T.N.B.buttonClick" cpt
                           }
           where
             hasColor :: Status -> String
-            hasColor Prod = "black"
-            hasColor Test = "orange"
-            hasColor WIP  = "red"
+            hasColor Stable = "black"
+            hasColor Test   = "orange"
+            hasColor Dev    = "red"
 
 
 -- END Popup View

src/Gargantext/Components/Forest/Tree/Node/Status.purs

 module Gargantext.Components.Forest.Tree.Node.Status where
 
-import Data.Generic.Rep (class Generic)
-import Data.Generic.Rep.Show (genericShow)
-import Data.Generic.Rep.Eq   (genericEq)
-import Gargantext.Prelude (class Eq, class Show, show, (&&), (<>), (==))
-import Data.Array (foldl)
 import Gargantext.Types
 import Gargantext.Components.Forest.Tree.Node.Settings (NodeAction(..))
 
-------------------------------------------------------------------------
-------------------------------------------------------------------------
 ------------------------------------------------------------------------
 -- Beta Status
-data Status = Prod | Test | WIP
+data Status = Stable | Test | Dev
 
 hasStatus :: NodeType -> NodeAction -> Status
-hasStatus _ SearchBox         = WIP
+hasStatus _ SearchBox         = Dev
+hasStatus _ Config            = Dev
+hasStatus _ (Link _)          = Test
+hasStatus _ (Move _)          = Test
 hasStatus _ (Documentation _) = Test
-hasStatus _ _                 = Prod
+hasStatus _ _                 = Stable