fix: no longer update graphs and phylos on corpus update

src/Gargantext/API/Node/Update.hs

@@ -35,7 +35,7 @@ import Gargantext.Database.Action.Flow.Pairing (pairing)
 import Gargantext.Database.Action.Metrics (updateNgramsOccurrences, updateContextScore)
 import Gargantext.Database.Admin.Types.Hyperdata.Phylo ( HyperdataPhylo(HyperdataPhylo) )
 import Gargantext.Database.Admin.Types.Node ( NodeId,
-    NodeType(NodeCorpus, NodeAnnuaire, NodeTexts, NodeGraph, NodePhylo, NodeList) )
+    NodeType(NodeCorpus, NodeAnnuaire, NodeTexts, NodeList) )
 import Gargantext.Database.Query.Table.Node (defaultList, getNode, getChildrenByType)
 import Gargantext.Database.Query.Table.Node.UpdateOpaleye (updateHyperdata)
 import Gargantext.Database.Schema.Node (node_parent_id)
@@ -146,21 +146,15 @@ updateNode tId (UpdateNodeParamsTexts _mode) jobHandle = do
 
   markComplete jobHandle
 
-updateNode tId
-    (UpdateNodeParamsCorpus methodGraph methodPhylo methodTexts methodList)
-    jobHandle = do
+updateNode tId (UpdateNodeParamsCorpus methodTexts methodList) jobHandle = do
   markStarted 3 jobHandle
   markProgress 1 jobHandle
 
   _ <- getNode tId
   childTexts <- getChildrenByType tId NodeTexts
-  childGraphs <- getChildrenByType tId NodeGraph
-  childPhylos <- getChildrenByType tId NodePhylo
   childNodeLists <- getChildrenByType tId NodeList
 
   mapM_ (\cId -> updateNode cId (UpdateNodeParamsTexts methodTexts) jobHandle) childTexts
-  mapM_ (\cId -> updateNode cId (UpdateNodeParamsGraph methodGraph) jobHandle) childGraphs
-  mapM_ (\cId -> updateNode cId (UpdateNodePhylo methodPhylo) jobHandle) childPhylos
   mapM_ (\cId -> updateNode cId (UpdateNodeParamsList methodList) jobHandle) childNodeLists
 
   markComplete jobHandle

src/Gargantext/API/Node/Update/Types.hs

@@ -21,9 +21,7 @@ data UpdateNodeParams = UpdateNodeParamsList  { methodList  :: !Method      }
 
                       | UpdateNodeParamsTexts { methodTexts :: !Granularity }
 
-                      | UpdateNodeParamsCorpus { methodGraph :: !UpdateNodeConfigGraph
-                                               , methodPhylo :: !PhyloSubConfigAPI
-                                               , methodTexts :: !Granularity
+                      | UpdateNodeParamsCorpus { methodTexts :: !Granularity
                                                , methodList  :: !Method }
 
                       | UpdateNodeParamsBoard { methodBoard :: !Charts      }