[FIX] memory fix

049c77ed · Alexandre Delanoë · 1865fd21 · 049c77ed
Commit 049c77ed authored Jan 21, 2021 by Alexandre Delanoë
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

Flow.hs src/Gargantext/Database/Action/Flow.hs +3 -1

No files found.
--- a/src/Gargantext/Database/Action/Flow.hs
+++ b/src/Gargantext/Database/Action/Flow.hs
@@ -458,7 +458,9 @@ indexAllDocumentsWithPosTag = do
                    (extractNgramsT $ withLang (Multi EN) documentsWithId)
                    documentsWithId

-  _ <- insertExtractedNgrams $ HashMap.keys mapNgramsDocs'
+  _ <- mapM insertExtractedNgrams
+     $ splitEvery 10000
+     $ HashMap.keys mapNgramsDocs'

  pure ()