[GRAPH] ok but empty.

src/Gargantext/API/Node.hs

@@ -250,33 +250,27 @@ type ChartApi = Summary " Chart API"
 type GraphAPI   = Get '[JSON] Graph
 
 graphAPI :: NodeId -> GargServer GraphAPI
-graphAPI cId = undefined
+graphAPI nId = do
 
---graphAPI' :: NodeId -> GargServer GraphAPI
-graphAPI' :: NodeId -> Cmd err Graph -- GargServer GraphAPI
-graphAPI' cId = do
-
-  nodeGraph <- getNode cId HyperdataGraph
+  nodeGraph <- getNode nId HyperdataGraph
 
   let title = "IMT - Scientific publications - 1982-2017 - English"
-  let metadata = GraphMetadata title [maybe 0 identity $ _node_parentId nodeGraph] [ LegendField 6 "#FFF" "Data processing"
+  let metadata = GraphMetadata title [maybe 0 identity $ _node_parentId nodeGraph]
+                                     [ LegendField 6 "#FFF" "Data processing"
                                      , LegendField 7 "#FFF" "Networks"
                                      , LegendField 1 "#FFF" "Material science"
                                      , LegendField 5 "#FFF" "Energy / Environment"
                                      ]
                          -- (map (\n -> LegendField n "#FFFFFF" (pack $ show n)) [1..10])
-  lId <- defaultList cId
   
-  cooc <- getCoocByDocDev cId lId
+  myCooc <- getCoocByDocDev nId <$> defaultList (maybe (panic "no parentId") identity $ _node_parentId nodeGraph)
+  myCooc' <- myCooc
+  --{-
+  liftIO $ set graph_metadata (Just metadata)
+        <$> cooc2graph myCooc'
         
-  graph <- set graph_metadata (Just metadata)
         -- <$> maybe defaultGraph identity
-        <$> cooc2graph cooc
-  {-
-        <$> readGraphFromJson "purescript-gargantext/dist/examples/imtNew.json"
-  -}
-
-  pure graph
+        -- <$> readGraphFromJson "purescript-gargantext/dist/examples/imtNew.json"
 
   -- t <- textFlow (Mono EN) (Contexts contextText)
   -- liftIO $ liftIO $ pure $  maybe t identity maybeGraph

src/Gargantext/Database/Flow.hs

@@ -105,7 +105,7 @@ flowCorpus' :: HasNodeError err
 flowCorpus' NodeCorpus hyperdataDocuments (ids,masterUserId,masterCorpusId, userId,userCorpusId) = do
 --------------------------------------------------
   -- List Ngrams Flow
-  userListId <- flowListUser userId userCorpusId 300
+  userListId <- flowListUser userId userCorpusId 3000
   printDebug "Working on User ListId : " userListId
 
   let documentsWithId = mergeData (toInserted ids) (toInsert hyperdataDocuments)

src/Gargantext/Database/Metrics/Count.hs

@@ -14,6 +14,7 @@ Count Ngrams by Context
 {-# LANGUAGE NoImplicitPrelude #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE QuasiQuotes       #-}
+{-# LANGUAGE RankNTypes        #-}
 
 module Gargantext.Database.Metrics.Count where
 
@@ -30,7 +31,7 @@ import Gargantext.Database.Types.Node (ListId, CorpusId)
 import Gargantext.Database.Types.Node (NodeId)
 import Gargantext.Database.Schema.Ngrams (NgramsId, NgramsType(..), ngramsTypeId, Ngrams(..), NgramsIndexed(..), ngrams, ngramsTerms)
 
-getCoocByDocDev :: HasNodeError err => CorpusId -> ListId -> Cmd err (Map ([Text], [Text]) Coocs)
+getCoocByDocDev :: HasNodeError err => CorpusId -> ListId -> Cmd err (Map ([Text], [Text]) Int)
 getCoocByDocDev cId lId = coocOn (\n-> [ view ( ngrams . ngramsTerms) n]) <$> getNgramsByDoc cId lId
 
 getCoocByDoc :: CorpusId -> ListId -> Cmd err (Map (NgramsIndexed, NgramsIndexed) Coocs)

src/Gargantext/Database/Metrics/TFICF.hs

@@ -14,6 +14,7 @@ TFICF, generalization of TFIDF
 {-# LANGUAGE NoImplicitPrelude      #-}
 {-# LANGUAGE OverloadedStrings      #-}
 {-# LANGUAGE QuasiQuotes            #-}
+{-# LANGUAGE RankNTypes        #-}
 
 module Gargantext.Database.Metrics.TFICF where
 

src/Gargantext/Text/Flow.hs

@@ -35,7 +35,6 @@ import Database.PostgreSQL.Simple (Connection)
 
 import Gargantext.Database.Schema.Node
 import Gargantext.Database.Types.Node
-import Gargantext.Database.Utils (Cmd, mkCmd)
 
 import Gargantext.Core (Lang)
 import Gargantext.Prelude