[FIX] normalize username when sharing
[gargantext.git] / src / Gargantext / Database / Action / Metrics / TFICF.hs
index 7356ba5f99bf0bcae01f7a14125a42f90ef64345..df12fdef9c90d7a29b7549656c24120eb1d984a3 100644 (file)
@@ -19,7 +19,7 @@ module Gargantext.Database.Action.Metrics.TFICF
 import Data.HashMap.Strict (HashMap)
 import qualified Data.HashMap.Strict as HM
 import Data.Maybe (fromMaybe)
-import Data.Text (Text)
+import Gargantext.Core
 import Gargantext.Core.Text.Metrics.TFICF
 import Gargantext.Database.Action.Metrics.NgramsByNode (getNodesByNgramsUser, getOccByNgramsOnlyFast)
 import Gargantext.Database.Admin.Types.Node -- (ListId, CorpusId, NodeId)
@@ -30,7 +30,8 @@ import Gargantext.API.Ngrams.Types
 import Gargantext.Prelude
 import qualified Data.Set as Set
 
-getTficf :: UserCorpusId
+getTficf :: HasDBid NodeType 
+         => UserCorpusId
          -> MasterCorpusId
          -> NgramsType
          -> Cmd err (HashMap NgramsTerm Double)
@@ -50,4 +51,4 @@ getTficf cId mId nt = do
                         (Total $ fromIntegral countLocal))
             (TficfSupra (Count $ fromMaybe 0 $ HM.lookup t mapTextDoubleGlobal)
                         (Total $ fromIntegral countGlobal))
-    ) mapTextDoubleLocal
\ No newline at end of file
+    ) mapTextDoubleLocal