[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
@@ -217,7 +217,7 @@ buildNgramsTermsList user uCid mCid mfslw groupParams (nt, _mapListSize)= do
 -------------------------
 -- Filter 1 With Set NodeId and SpeGen
     !selectedTerms = Set.toList $ hasTerms (groupedMonoHead <> groupedMultHead)
- 
+
   printDebug "[buildNgramsTermsList: selectedTerms]" selectedTerms
 
  -- TODO remove (and remove HasNodeError instance)
@@ -283,7 +283,7 @@ buildNgramsTermsList user uCid mCid mfslw groupParams (nt, _mapListSize)= do
     -- use % of list if to big, or Int if to small
     !mapSize = 1000 :: Double
     !canSize = mapSize * 2 :: Double
- 
+
     !inclSize = 0.4  :: Double
     !exclSize = 1 - inclSize
 
@@ -318,7 +318,7 @@ buildNgramsTermsList user uCid mCid mfslw groupParams (nt, _mapListSize)= do
         <> mapMultScoredExclHead
 
     -- An original way to filter to start with
-    !cands = setListType (Just CandidateTerm) 
+    !cands = setListType (Just CandidateTerm)
           $ canMonoScoredIncHead
           <> canMonoScoredExclHead
           <> canMulScoredInclHead

src/Gargantext/Database/Action/Flow.hs

@@ -325,7 +325,7 @@ flowCorpusUser l user corpusName ctype ids mfslw = do
 
   --let gp = (GroupParams l 2 3 (StopSize 3))
   -- Here the PosTagAlgo should be chosen according to the Lang
-  _ <- case mfslw of 
+  _ <- case mfslw of
          (Just (NoList _)) -> do
            printDebug "Do not build list" mfslw
            pure ()

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

@@ -8,7 +8,7 @@ Stability   : experimental
 Portability : POSIX
 
 Add Documents/Contact to a Corpus/Annuaire.
- 
+
 -}
 ------------------------------------------------------------------------
 {-# LANGUAGE DeriveDataTypeable   #-}
@@ -78,4 +78,3 @@ instance ToRow InputData where
                     , toField (0 :: Int)
                     , toField (1 :: Int)
                     ]
-