[CLEAN]

src/Gargantext/Core/Text/List.hs

@@ -161,7 +161,7 @@ buildNgramsTermsList user uCid mCid mfslw groupParams (nt, _mapListSize)= do
 -- Computing global speGen score
   printDebug "[buildNgramsTermsList: Sample List] / start" nt
   allTerms :: HashMap NgramsTerm Double <- getTficf_withSample uCid mCid nt
-  printDebug "[buildNgramsTermsList: Sample List / end]" nt
+  printDebug "[buildNgramsTermsList: Sample List / end]" (nt, HashMap.size allTerms)
 
   printDebug "[buildNgramsTermsList: Flow Social List / start]" nt
   -- PrivateFirst for first developments since Public NodeMode is not implemented yet
@@ -218,7 +218,7 @@ buildNgramsTermsList user uCid mCid mfslw groupParams (nt, _mapListSize)= do
                                             selectedTerms
 
 
-  printDebug "mapTextDocIds" mapTextDocIds
+  -- printDebug "mapTextDocIds" mapTextDocIds
 
   let
     groupedTreeScores_SetNodeId :: HashMap NgramsTerm (GroupedTreeScores (Set NodeId))

src/Gargantext/Core/Text/List/Social.hs

@@ -15,14 +15,15 @@ module Gargantext.Core.Text.List.Social
 
 import Control.Monad (mzero)
 import Data.Aeson
-import GHC.Generics
 import Data.HashMap.Strict (HashMap)
 import Data.Map (Map)
 import Data.Monoid (mconcat)
-import qualified Data.Scientific as Scientific
 import Data.Swagger
+import GHC.Generics
+import qualified Data.Scientific as Scientific
 import qualified Data.Text       as T
 import qualified Data.Vector     as V
+
 import Gargantext.API.Ngrams.Tools
 import Gargantext.API.Ngrams.Types
 import Gargantext.Core.NodeStory

src/Gargantext/Database/Action/Flow.hs

@@ -89,12 +89,12 @@ import Gargantext.Database.Admin.Config (userMaster, corpusMasterName)
 import Gargantext.Database.Admin.Types.Hyperdata
 import Gargantext.Database.Admin.Types.Node -- (HyperdataDocument(..), NodeType(..), NodeId, UserId, ListId, CorpusId, RootId, MasterCorpusId, MasterUserId)
 import Gargantext.Database.Prelude
+import Gargantext.Database.Query.Table.ContextNodeNgrams2
 import Gargantext.Database.Query.Table.Ngrams
 import Gargantext.Database.Query.Table.Node
 import Gargantext.Database.Query.Table.Node.Document.Insert -- (insertDocuments, ReturnId(..), addUniqIdsDoc, addUniqIdsContact, ToDbData(..))
 import Gargantext.Database.Query.Table.Node.Error (HasNodeError(..))
 import Gargantext.Database.Query.Table.NodeNgrams (listInsertDb , getCgramsId)
-import Gargantext.Database.Query.Table.ContextNodeNgrams2
 import Gargantext.Database.Query.Tree.Root (getOrMkRoot, getOrMk_RootWithCorpus)
 import Gargantext.Database.Schema.Node (NodePoly(..), node_id)
 import Gargantext.Database.Types

src/Gargantext/Database/Action/Flow/List.hs

@@ -133,7 +133,9 @@ toNodeNgramsW l ngs = List.concat $ map (toNodeNgramsW'' l) ngs
                       , _ne_occurrences = _occ
                       , _ne_root        = _root
                       , _ne_parent      = _parent
-                      , _ne_children = _children }) <- elms
+                      , _ne_children    = _children
+                      }
+        ) <- elms
       ]
 
 
@@ -148,7 +150,8 @@ toNodeNgramsW' l'' ngs = [ NodeNgrams { _nng_id = Nothing
                                       , _nng_ngrams_field  = Nothing
                                       , _nng_ngrams_tag    = Nothing
                                       , _nng_ngrams_class  = Nothing
-                                      , _nng_ngrams_weight = 0 }
+                                      , _nng_ngrams_weight = 0
+                                      }
                          | (terms, ngrams_types) <- ngs
                          , ngrams_type <- ngrams_types
                          ]

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

@@ -74,7 +74,7 @@ getTficf_withSample cId mId nt = do
                      <$> getOccByNgramsOnlyFast_withSample mId countGlobal nt
                             (HM.keys mapTextDoubleLocal)
 
-  printDebug "getTficf_withSample" (mapTextDoubleLocal, mapTextDoubleGlobal, countLocal, countGlobal)
+  --printDebug "getTficf_withSample" (mapTextDoubleLocal, mapTextDoubleGlobal, countLocal, countGlobal)
   pure $ HM.mapWithKey (\t n ->
       tficf (TficfInfra (Count n                                               )
                         (Total $ fromIntegral countLocal))