[FIX] PubMed api ok.

src/Gargantext/API/Corpus/New.hs

@@ -76,7 +76,7 @@ api (Query q _ as) = do
     Nothing      -> flowCorpusSearchInDatabase "user1" EN q
     Just API.All -> flowCorpusSearchInDatabase "user1" EN q
     Just a   -> do
-      docs <- liftIO $ API.get a q Nothing
+      docs <- liftIO $ API.get a q (Just 1000)
       cId' <- flowCorpus "user1" (Left q) (Multi EN) [docs]
       pure cId'
 
@@ -96,4 +96,3 @@ info :: FlowCmdM env err m => UserId -> m ApiInfo
 info _u = pure $ ApiInfo API.externalAPIs
 
 
-

src/Gargantext/Database/Flow.hs

@@ -57,7 +57,7 @@ import Gargantext.Database.Node.Contact -- (HyperdataContact(..), ContactWho(..)
 import Gargantext.Database.Node.Document.Insert -- (insertDocuments, ReturnId(..), addUniqIdsDoc, addUniqIdsContact, ToDbData(..))
 import Gargantext.Database.Root (getRoot)
 import Gargantext.Database.Schema.Ngrams -- (insertNgrams, Ngrams(..), NgramsIndexed(..), indexNgrams,  NgramsType(..), text2ngrams, ngramsTypeId)
-import Gargantext.Database.Schema.Node -- (mkRoot, mkCorpus, getOrMkList, mkGraph, mkPhylo, mkDashboard, mkAnnuaire, getCorporaWithParentId, HasNodeError, NodeError(..), nodeError)
+import Gargantext.Database.Schema.Node -- (mkRoot, mkCorpus, getOrMkList, mkGraph, {-mkPhylo,-} mkDashboard, mkAnnuaire, getCorporaWithParentId, HasNodeError, NodeError(..), nodeError)
 import Gargantext.Database.Schema.User (getUser, UserLight(..))
 import Gargantext.Database.TextSearch (searchInDatabase)
 import Gargantext.Database.Types.Node -- (HyperdataDocument(..), NodeType(..), NodeId, UserId, ListId, CorpusId, RootId, MasterCorpusId, MasterUserId)
@@ -177,8 +177,6 @@ flowCorpus :: (FlowCmdM env err m, FlowCorpus a)
 flowCorpus = flow (Nothing :: Maybe HyperdataCorpus)
 
 ------------------------------------------------------------------------
-
-
 flowCorpusUser :: (FlowCmdM env err m, MkCorpus c)
                => Lang -> Username -> Either CorpusName [CorpusId] -> Maybe c -> [NodeId] -> m CorpusId
 flowCorpusUser l userName corpusName ctype ids = do
@@ -199,7 +197,7 @@ flowCorpusUser l userName corpusName ctype ids = do
   -- User Graph Flow
   _ <- mkDashboard userCorpusId userId
   _ <- mkGraph  userCorpusId userId
-  _ <- mkPhylo  userCorpusId userId
+  --_ <- mkPhylo  userCorpusId userId
   --}
 
 

src/Gargantext/Text/Corpus/API.hs

@@ -89,6 +89,3 @@ toDoc l (Doc.PubMed (Doc.PubMedArticle t j as aus)
         abstract :: Maybe [Text] -> Maybe Text
         abstract as' = fmap (Text.intercalate ", ") as'
 
-
-
-

src/Gargantext/Viz/Graph/API.hs

@@ -77,7 +77,7 @@ getGraph nId = do
                             <$> groupNodesByNgrams ngs
                             <$> getNodesByNgramsOnlyUser cId (lIds <> [lId]) NgramsTerms (Map.keys ngs)
 
-  graph <- liftIO $ cooc2graph 1 myCooc
+  graph <- liftIO $ cooc2graph 0 myCooc
   pure $ set graph_metadata (Just metadata) graph
 
 

stack.yaml

@@ -23,7 +23,7 @@ extra-deps:
 - git: https://github.com/robstewart57/rdf4h.git
   commit: 4fd2edf30c141600ffad6d730cc4c1c08a6dbce4
 - git: https://gitlab.iscpif.fr/gargantext/crawlers/pubmed.git
-  commit: 23a3e2cdad564299aa294286a9fc74c550bd09db
+  commit: ac4f8ecfb2e579041a350e4718bc6d4e7a832d92
 - git: https://gitlab.iscpif.fr/gargantext/crawlers/hal.git
   commit: bf57642f6b66f554fdc0a38ac391cd8200dffcb3
 - git: https://gitlab.iscpif.fr/gargantext/patches-class