[DOC] NodeFrameCalc -> Calc only

src/Gargantext/Database/Action/Node.hs

@@ -54,8 +54,8 @@ mkNodeWithParent _ Nothing _ _ = nodeError HasParent
 mkNodeWithParent Notes i u n =
   mkNodeWithParent_ConfigureHyperdata Notes i u n
 
-mkNodeWithParent NodeFrameCalc i u n =
-  mkNodeWithParent_ConfigureHyperdata NodeFrameCalc i u n
+mkNodeWithParent Calc i u n =
+  mkNodeWithParent_ConfigureHyperdata Calc i u n
 
 mkNodeWithParent NodeFrameVisio i u n =
   mkNodeWithParent_ConfigureHyperdata NodeFrameVisio i u n
@@ -79,8 +79,8 @@ mkNodeWithParent_ConfigureHyperdata :: (HasNodeError err, HasDBid NodeType)
 mkNodeWithParent_ConfigureHyperdata Notes (Just i) uId name =
   mkNodeWithParent_ConfigureHyperdata' Notes (Just i) uId name
 
-mkNodeWithParent_ConfigureHyperdata NodeFrameCalc (Just i) uId name =
-  mkNodeWithParent_ConfigureHyperdata' NodeFrameCalc (Just i) uId name
+mkNodeWithParent_ConfigureHyperdata Calc (Just i) uId name =
+  mkNodeWithParent_ConfigureHyperdata' Calc (Just i) uId name
 
 mkNodeWithParent_ConfigureHyperdata NodeFrameVisio (Just i) uId name =
   mkNodeWithParent_ConfigureHyperdata' NodeFrameVisio (Just i) uId name
@@ -103,7 +103,7 @@ mkNodeWithParent_ConfigureHyperdata' :: (HasNodeError err, HasDBid NodeType)
 mkNodeWithParent_ConfigureHyperdata' nt (Just i) uId name = do
   maybeNodeId <- case nt of
      Notes -> insertNode Notes (Just name)   Nothing i uId
-     NodeFrameCalc  -> insertNode NodeFrameCalc  (Just name)   Nothing i uId
+     Calc  -> insertNode Calc  (Just name)   Nothing i uId
      NodeFrameVisio -> insertNode NodeFrameVisio (Just name)   Nothing i uId
      _              -> nodeError NeedsConfiguration
 
@@ -113,7 +113,7 @@ mkNodeWithParent_ConfigureHyperdata' nt (Just i) uId name = do
       cfg <- view hasConfig
       u <- case nt of
             Notes -> pure $ _gc_frame_write_url cfg
-            NodeFrameCalc  -> pure $ _gc_frame_calc_url  cfg
+            Calc  -> pure $ _gc_frame_calc_url  cfg
             NodeFrameVisio -> pure $ _gc_frame_visio_url  cfg
             _              -> nodeError NeedsConfiguration
       let

src/Gargantext/Database/Admin/Config.hs

@@ -77,7 +77,7 @@ nodeTypeId n =
     NodeFile        -> 101
 
     Notes    -> 991
-    NodeFrameCalc     -> 992
+    Calc     -> 992
     NodeFrameNotebook -> 993
     NodeFrameVisio    -> 994
 

src/Gargantext/Database/Admin/Types/Hyperdata/Default.hs

@@ -116,7 +116,7 @@ defaultHyperdata NodePhylo          = DefaultPhylo     defaultHyperdataPhylo
 defaultHyperdata NodeDashboard      = DefaultDashboard defaultHyperdataDashboard
 
 defaultHyperdata Notes     = DefaultFrameWrite defaultHyperdataFrame
-defaultHyperdata NodeFrameCalc      = DefaultFrameCalc  defaultHyperdataFrame
+defaultHyperdata Calc      = DefaultFrameCalc  defaultHyperdataFrame
 defaultHyperdata NodeFrameVisio     = DefaultFrameVisio defaultHyperdataFrame
 defaultHyperdata NodeFrameNotebook      = DefaultFrameCalc  defaultHyperdataFrame
 

src/Gargantext/Database/Admin/Types/Node.hs

@@ -355,7 +355,7 @@ data NodeType = NodeUser
 -}
 
               -- Optional Nodes
-              | Notes | NodeFrameCalc | NodeFrameVisio | NodeFrameNotebook
+              | Notes | Calc | NodeFrameVisio | NodeFrameNotebook
               | NodeFile
 
   deriving (Show, Read, Eq, Generic, Bounded, Enum)
@@ -406,7 +406,7 @@ defaultName NodeGraph         = "Graph"
 defaultName NodePhylo         = "Phylo"
 
 defaultName Notes    = "Note"
-defaultName NodeFrameCalc     = "Calc"
+defaultName Calc     = "Calc"
 defaultName NodeFrameVisio    = "Visio"
 defaultName NodeFrameNotebook = "Code"