[FIX] list size limit

81018527 · Alexandre Delanoë · 573c8096 · 81018527
Commit 81018527 authored May 16, 2022 by Alexandre Delanoë
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

List.hs src/Gargantext/Core/Text/List.hs +1 -1

No files found.
--- a/src/Gargantext/Core/Text/List.hs
+++ b/src/Gargantext/Core/Text/List.hs
@@ -124,7 +124,7 @@ buildNgramsOthersList user uCid mfslw _groupParams (nt, MapListSize mapListSize,
                            $ HashMap.toList tailTerms'


-  pure $ Map.fromList [( nt, (toNgramsElement stopTerms)
+  pure $ Map.fromList [( nt, List.take maxListSize $ (toNgramsElement stopTerms)
                          <> (toNgramsElement mapTerms )
                          <> (toNgramsElement $ setListType (Just MapTerm      ) mapTerms' )
                          <> (toNgramsElement $ setListType (Just CandidateTerm) candiTerms)