[FEAT] Adding Visio micro-service (Jitsi)
[gargantext.git] / src / Gargantext / Core / Text / List.hs
index 2b25c172f25ab332c0c90f98d86da9a3ff9003d7..fa17f7d7371110f3e8b08c4b2dccb1677caeb66a 100644 (file)
@@ -118,6 +118,7 @@ buildNgramsOthersList user uCid _groupParams (nt, MapListSize mapListSize) = do
                             $ List.sortOn (Down . viewScore . snd)
                             $ HashMap.toList tailTerms'
 
+
   pure $ Map.fromList [( nt, (toNgramsElement stopTerms)
                           <> (toNgramsElement mapTerms )
                           <> (toNgramsElement $ setListType (Just MapTerm      ) mapTerms' )
@@ -247,8 +248,8 @@ buildNgramsTermsList user uCid mCid groupParams (nt, _mapListSize)= do
 
       -- filter with max score
     partitionWithMaxScore = HashMap.partition (\g -> (view scored_genInc $ view gts'_score g)
-                                               > (view scored_speExc $ view gts'_score g)
-                                          )
+                                                   > (view scored_speExc $ view gts'_score g)
+                                              )
 
     (monoScoredIncl, monoScoredExcl) = partitionWithMaxScore monoScored
     (multScoredIncl, multScoredExcl) = partitionWithMaxScore multScored
@@ -257,7 +258,7 @@ buildNgramsTermsList user uCid mCid groupParams (nt, _mapListSize)= do
   let
     -- use % of list if to big, or Int if to small
     mapSize = 1000 :: Double
-    canSize = mapSize * 10 :: Double
+    canSize = mapSize * 5 :: Double
  
     inclSize = 0.4  :: Double
     exclSize = 1 - inclSize
@@ -304,11 +305,14 @@ buildNgramsTermsList user uCid mCid groupParams (nt, _mapListSize)= do
           {-\$  groupedMonoTail
           <>-} groupedMultTail
 
+    -- Quick FIX
+    candNgramsElement = List.take 5000
+                      $ toNgramsElement cands <> toNgramsElement cands'
+
     result = Map.unionsWith (<>)
        [ Map.fromList [( nt, toNgramsElement maps
-                          <> toNgramsElement cands
-                          <> toNgramsElement cands'
                           <> toNgramsElement stopTerms
+                          <> candNgramsElement
                       )]
        ]