[flow] fix hardcoded list size in build terms

src/Gargantext/API/Flow.hs

@@ -29,4 +29,3 @@ data OutputFlow
 
 flow :: Flow -> OutputFlow
 flow = undefined
-

src/Gargantext/Core/Text/Corpus/API/Hal.hs

@@ -63,4 +63,3 @@ toDoc' la (HAL.Corpus i t ab d s aus affs struct_id) = do
                          , _hd_publication_minute = Nothing
                          , _hd_publication_second = Nothing
                          , _hd_language_iso2 = Just $ (pack . show) la }
-

src/Gargantext/Core/Text/List.hs

@@ -159,7 +159,7 @@ buildNgramsTermsList :: ( HasNodeError err
                      -> GroupParams
                      -> (NgramsType, MapListSize)
                      -> m (Map NgramsType [NgramsElement])
-buildNgramsTermsList user uCid mCid mfslw groupParams (nt, _mapListSize)= do
+buildNgramsTermsList user uCid mCid mfslw groupParams (nt, MapListSize mapListSize)= do
 
 -- Filter 0 With Double
 -- Computing global speGen score
@@ -179,13 +179,13 @@ buildNgramsTermsList user uCid mCid mfslw groupParams (nt, _mapListSize)= do
                                     )
   printDebug "[buildNgramsTermsList: Flow Social List / end]" nt
 
-  let !ngramsKeys = HashSet.fromList $ List.take 1000 $ HashSet.toList $ HashMap.keysSet allTerms
+  let !ngramsKeys = HashSet.fromList $ List.take mapListSize $ HashSet.toList $ HashMap.keysSet allTerms
 
   printDebug "[buildNgramsTermsList: ngramsKeys]" (HashSet.size ngramsKeys)
 
   !groupParams' <- getGroupParams groupParams (HashSet.map (text2ngrams . unNgramsTerm) ngramsKeys)
 
-  printDebug "[buildNgramsTermsList: groupParams']" (""::Text)
+  printDebug "[buildNgramsTermsList: groupParams']" ("" :: Text)
 
   let
     !socialLists_Stemmed = addScoreStem groupParams' ngramsKeys socialLists

src/Gargantext/Database/Query/Table/Node/Document/Add.hs

@@ -78,4 +78,3 @@ instance ToRow InputData where
                     , toField (0 :: Int)
                     , toField (1 :: Int)
                     ]
-