[LOGS] removing trace.

src/Gargantext/API/Node.hs

@@ -38,7 +38,7 @@ import Control.Monad.IO.Class (liftIO)
 import Control.Monad ((>>))
 --import System.IO (putStrLn, readFile)
 
---import qualified Data.Map as Map
+import qualified Data.Map as Map
 import Data.Aeson (FromJSON, ToJSON)
 import Data.Text (Text())
 import Data.Swagger
@@ -284,8 +284,7 @@ graphAPI nId = do
 
   nodeGraph <- getNode nId HyperdataGraph
 
-  let title = "Title"
-  let metadata = GraphMetadata title [maybe 0 identity $ _node_parentId nodeGraph]
+  let metadata = GraphMetadata "Title" [maybe 0 identity $ _node_parentId nodeGraph]
                                      [ LegendField 1 "#FFF" "Cluster"
                                      , LegendField 2 "#FFF" "Cluster"
                                      ]
@@ -294,9 +293,8 @@ graphAPI nId = do
   _lId <- defaultList cId
   -- lId' <- listsWith masterUser
   --myCooc <- getCoocByDocDev cId lId -- (lid' <> [lId])
-  myCooc <- coocOn identity <$> getNgramsByNode cId NgramsTerms
-  liftIO $ set graph_metadata (Just metadata)
-        <$> cooc2graph myCooc
+  myCooc <- Map.filter (>2) <$> coocOn identity <$> getNgramsByNode cId NgramsTerms
+  liftIO $ set graph_metadata (Just metadata) <$> cooc2graph myCooc
         
         -- <$> maybe defaultGraph identity
         -- <$> readGraphFromJson "purescript-gargantext/dist/examples/imtNew.json"

src/Gargantext/Database/Flow.hs

@@ -122,7 +122,7 @@ flowCorpus' NodeCorpus hyperdataDocuments (ids,masterUserId,masterCorpusId, user
 
   -- List Ngrams Flow
   _masterListId <- flowList masterUserId masterCorpusId indexedNgrams
-  _userListId   <- flowListUser userId userCorpusId 500
+  _userListId   <- flowListUser userId userCorpusId 100
 --------------------------------------------------
   _ <- mkDashboard userCorpusId userId
   _ <- mkGraph     userCorpusId userId
@@ -270,7 +270,8 @@ flowListUser uId cId n = do
 
   putListNgrams lId NgramsTerms $
     [ NgramsElement (tficf_ngramsTerms ng) GraphList 1 Nothing mempty
-    | ng <- ngs ]
+    | ng <- ngs 
+    ]
 
   pure lId
 

src/Gargantext/Text/Metrics.hs

@@ -18,25 +18,19 @@ Mainly reexport functions in @Data.Text.Metrics@
 module Gargantext.Text.Metrics
   where
 
-import Data.Ord (Down(..))
-import qualified Data.List as L
-
-import Data.Map (Map)
-import qualified Data.Map  as M
-
+--import Data.Array.Accelerate ((:.)(..), Z(..))
+--import Debug.Trace (trace)
 --import Math.KMeans (kmeans, euclidSq, elements)
-
+import Data.Map (Map)
+import Data.Ord (Down(..))
+import GHC.Real (round)
 import Gargantext.Prelude
 import Gargantext.Viz.Graph.Distances.Matrice
 import Gargantext.Viz.Graph.Index
-
-import qualified Data.Array.Accelerate.Interpreter as DAA
 import qualified Data.Array.Accelerate as DAA
--- import Data.Array.Accelerate ((:.)(..), Z(..))
-
-import GHC.Real (round)
-
-import Debug.Trace (trace)
+import qualified Data.Array.Accelerate.Interpreter as DAA
+import qualified Data.List as L
+import qualified Data.Map  as M
 
 data MapListSize   = MapListSize   Int
 data InclusionSize = InclusionSize Int
@@ -57,7 +51,8 @@ filterCooc fc cc = (filterCooc' fc) ts cc
     ts     = map _scored_terms $ takeSome fc $ coocScored cc
 
 filterCooc' :: (Show t, Ord t) => FilterConfig -> [t] -> Map (t, t) Int -> Map (t, t) Int
-filterCooc' (FilterConfig _ _ _ _ (DefaultValue dv)) ts m = trace ("coocScored " <> show ts) $
+filterCooc' (FilterConfig _ _ _ _ (DefaultValue dv)) ts m =
+  -- trace ("coocScored " <> show ts) $
   foldl' (\m' k -> M.insert k (maybe dv identity $ M.lookup k m) m')
     M.empty selection
   where