[ngrams] try without map list size to fix singulars/plurals issue

src/Gargantext/Core/Text/List.hs

@@ -164,7 +164,7 @@ buildNgramsTermsList :: ( HasNodeError err
                      -> GroupParams
                      -> (NgramsType, MapListSize)
                      -> m (Map NgramsType [NgramsElement])
-buildNgramsTermsList user uCid mCid mfslw groupParams (nt, MapListSize mapListSize) = do
+buildNgramsTermsList user uCid mCid mfslw groupParams (nt, MapListSize _mapListSize) = do
 
 -- Filter 0 With Double
 -- Computing global speGen score
@@ -184,10 +184,11 @@ buildNgramsTermsList user uCid mCid mfslw groupParams (nt, MapListSize mapListSi
                                     )
   -- printDebug "[buildNgramsTermsList: Flow Social List / end]" nt
 
-  let !ngramsKeys = HashSet.fromList
-                  $ List.take mapListSize
-                  $ HashSet.toList
-                  $ HashMap.keysSet allTerms
+  -- let !ngramsKeys = HashSet.fromList
+  --                 $ List.take mapListSize
+  --                 $ HashSet.toList
+  --                 $ HashMap.keysSet allTerms
+  let !ngramsKeys = HashMap.keysSet allTerms
 
   -- printDebug "[buildNgramsTermsList: ngramsKeys]" (HashSet.size ngramsKeys)