import Gargantext.API.Admin.Orchestrator.Types (JobLog(..), AsyncJobs)
import Gargantext.API.Admin.Types (HasSettings)
import Gargantext.API.Ngrams.List (reIndexWith)
+--import Gargantext.API.Ngrams.Types (TabType(..))
import Gargantext.API.Prelude (GargServer, simuLogs)
import Gargantext.Core.Methods.Distances (GraphMetric(..))
import Gargantext.Core.Types.Main (ListType(..))
, _scst_remaining = Just 1
, _scst_events = Just []
}
-
+ printDebug "Computing graph: " method
_ <- recomputeGraph uId nId method (Just metric) True
+ printDebug "Graph computed: " method
pure JobLog { _scst_succeeded = Just 2
, _scst_failed = Just 0
_ <- case corpusId of
Just cId -> do
- _ <- Metrics.updatePie' cId (Just lId) NgramsTypes.Authors Nothing
- _ <- Metrics.updateTree' cId (Just lId) NgramsTypes.Institutes MapTerm
- _ <- Metrics.updatePie' cId (Just lId) NgramsTypes.Sources Nothing
+ _ <- Metrics.updatePie cId (Just lId) NgramsTypes.Authors Nothing
+ _ <- Metrics.updateTree cId (Just lId) NgramsTypes.Institutes MapTerm
+ _ <- Metrics.updatePie cId (Just lId) NgramsTypes.Sources Nothing
pure ()
Nothing -> pure ()
_ <- reIndexWith cId lId NgramsTerms (Set.singleton MapTerm)
_ <- updateNgramsOccurrences cId (Just lId)
_ <- updateContextScore cId (Just lId)
+ _ <- Metrics.updateChart cId (Just lId) NgramsTypes.Docs Nothing
-- printDebug "updateContextsScore" (cId, lId, u)
pure ()
Nothing -> pure ()