diff --git a/src/Gargantext/Text/List.hs b/src/Gargantext/Text/List.hs index c7440034a51469d1c229306b8bab26f42269d280..bf4490cc5c193e54772b75f5a5ba59f24b50ec8f 100644 --- a/src/Gargantext/Text/List.hs +++ b/src/Gargantext/Text/List.hs @@ -59,9 +59,9 @@ data StopSize = StopSize {unStopSize :: Int} -- | TODO improve grouping functions of Authors, Sources, Institutes.. buildNgramsLists :: Lang -> Int -> Int -> StopSize -> UserCorpusId -> MasterCorpusId -> Cmd err (Map NgramsType [NgramsElement]) -buildNgramsLists l n m s uCid _mCid = do - --ngTerms <- buildNgramsTermsList l n m s uCid mCid - ngTerms <- buildNgramsTermsList' uCid (ngramsGroup l n m) (isStopTerm s . fst) 500 50 +buildNgramsLists l n m s uCid mCid = do + ngTerms <- buildNgramsTermsList l n m s uCid mCid + --ngTerms <- buildNgramsTermsList' uCid (ngramsGroup l n m) (isStopTerm s . fst) 500 50 othersTerms <- mapM (buildNgramsOthersList uCid identity) [Authors, Sources, Institutes] pure $ Map.unions $ othersTerms <> [ngTerms]