From 38ca4c31cf39e767e17d81e96f52f63fe3e7e1d0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Alexandre=20Delano=C3=AB?= <devel+git@delanoe.org>
Date: Wed, 9 Sep 2020 14:31:29 +0200
Subject: [PATCH] [FIX] Map list size
---
src/Gargantext/Core/Text/List.hs | 1 +
src/Gargantext/Database/Action/Metrics/TFICF.hs | 4 ++--
2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/Gargantext/Core/Text/List.hs b/src/Gargantext/Core/Text/List.hs
index 77cd57aa..7d79a6b6 100644
--- a/src/Gargantext/Core/Text/List.hs
+++ b/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
diff --git a/src/Gargantext/Database/Action/Metrics/TFICF.hs b/src/Gargantext/Database/Action/Metrics/TFICF.hs
index 06cd25cd..26cf73b8 100644
--- a/src/Gargantext/Database/Action/Metrics/TFICF.hs
+++ b/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
--
2.21.0