change the main

26d9c2d5 · qlobbe · Alexandre Delanoë · 2e6a59b3 · 26d9c2d5
Commit 26d9c2d5 authored Apr 26, 2023 by qlobbe Committed by Alexandre Delanoë Jun 01, 2023
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

Main.hs bin/gargantext-phylo/Main.hs +4 -0

No files found.
--- a/bin/gargantext-phylo/Main.hs
+++ b/bin/gargantext-phylo/Main.hs
@@ -254,6 +254,10 @@ main = do
            corpus  <- fileToDocs' (corpusParser config) (corpusPath config) (timeUnit config) mapList
            printIOComment (show (length corpus) <> " parsed docs from the corpus")

+            printIOComment (show (length $ nub $ concat $ map text corpus) <> " Size ngs_coterms")
+
+            printIOComment (show (length mapList) <> " Size ngs_terms List Map Ngrams")
+
            printIOMsg "Reconstruct the phylo"

            -- check the existing backup files