[ngrams] fix grouping to use mapListSize

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,20 +184,19 @@ buildNgramsTermsList user uCid mCid mfslw groupParams (nt, MapListSize _mapListS
                                     )
   -- printDebug "[buildNgramsTermsList: Flow Social List / end]" nt
 
-  -- let !ngramsKeys = HashSet.fromList
-  --                 $ List.take mapListSize
-  --                 $ HashSet.toList
-  --                 $ HashMap.keysSet allTerms
-  let !ngramsKeys = HashMap.keysSet allTerms
+  let !allKeys = HashMap.keysSet allTerms
 
   -- printDebug "[buildNgramsTermsList: ngramsKeys]" (HashSet.size ngramsKeys)
 
-  !groupParams' <- getGroupParams groupParams (HashSet.map (text2ngrams . unNgramsTerm) ngramsKeys)
+  !groupParams' <- getGroupParams groupParams (HashSet.map (text2ngrams . unNgramsTerm) allKeys)
 
   let
-    !socialLists_Stemmed = addScoreStem groupParams' ngramsKeys socialLists
+    !socialLists_Stemmed = addScoreStem groupParams' allKeys socialLists
     !groupedWithList = toGroupedTree socialLists_Stemmed allTerms
     !(stopTerms, candidateTerms) = HashMap.partition ((== Just StopTerm) . viewListType)
+                                 $ HashMap.fromList
+                                 $ List.take mapListSize
+                                 $ HashMap.toList
                                  $ HashMap.filter (\g -> view gts'_score g > 1)
                                  $ view flc_scores groupedWithList