[FIX] Print phylo

src/Gargantext/API/Node/Update.hs

@@ -156,10 +156,12 @@ updateNode _uId lId (UpdateNodeParamsList _mode) jobHandle = do
 updateNode _userId phyloId (UpdateNodePhylo config) jobHandle = do
   markStarted 3 jobHandle
   corpusId' <- view node_parent_id <$> getNode phyloId
+  markProgress 1 jobHandle
 
   let corpusId = fromMaybe (panic "") corpusId'
 
   phy <- flowPhyloAPI (subConfigAPI2config config) corpusId
+  markProgress 2 jobHandle
 
 {-
   logStatus JobLog { _scst_succeeded = Just 2

src/Gargantext/Core/Viz/Phylo/API/Tools.hs

@@ -79,7 +79,7 @@ phylo2dot2json phylo = do
     Shell.callProcess "dot" ["-Txdot_json", "-o", fileToJson, fileDot]
 
     maybeValue <- decodeFileStrict fileToJson
-    print maybeValue
+    -- print maybeValue
 
     case maybeValue of
       Nothing -> panic "[G.C.V.Phylo.API.phylo2dot2json] Error no file"