[FIX] Map list size

src/Gargantext/Core/Text/List.hs

@@ -141,6 +141,7 @@ buildNgramsTermsList :: Lang
                      -> Cmd err (Map NgramsType [NgramsElement])
 buildNgramsTermsList _l _n _m s uCid mCid = do
   candidates <- sortTficf Down <$> getTficf uCid mCid NgramsTerms
+  printDebug "candidates" (length candidates)
 
   let
     candidatesSize = 400

src/Gargantext/Database/Action/Metrics/TFICF.hs

@@ -34,8 +34,8 @@ getTficf :: UserCorpusId
          -> NgramsType
          -> Cmd err (Map Text Double)
 getTficf cId mId nt = do
-  mapTextDoubleLocal <- Map.filter (> 1)
-     <$> Map.map (fromIntegral . Set.size)
+  mapTextDoubleLocal <- {- Map.filter (> 1) 
+     <$> -} Map.map (fromIntegral . Set.size)
      <$> getNodesByNgramsUser cId nt
 
   mapTextDoubleGlobal <- Map.map fromIntegral