[openalex] use search instead of filter

aa827322 · Przemyslaw Kaminski · fc05cfcb · aa827322 · aa827322 · aa827322
Verified Commit aa827322 authored Jun 29, 2023 by Przemyslaw Kaminski
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 3 deletions

cabal.project cabal.project +1 -1

gargantext.cabal gargantext.cabal +1 -0

OpenAlex.hs src/Gargantext/Core/Text/Corpus/API/OpenAlex.hs +1 -1

stack.yaml stack.yaml +1 -1

No files found.
--- a/cabal.project
+++ b/cabal.project
@@ -146,7 +146,7 @@ source-repository-package
 source-repository-package
    type: git
    location: https://gitlab.iscpif.fr/gargantext/crawlers/openalex.git
-    tag: 5aac73a7be1b86dcc312936c000e5e5444144491
+    tag: 0083c02d62441d73f3616409c6453c87302c698f
    
 allow-older: *
 allow-newer: *

--- a/gargantext.cabal
+++ b/gargantext.cabal
@@ -29,6 +29,7 @@ data-files:
    test-data/phylo/bpa_phylo_test.json
    test-data/phylo/open_science.json
    .clippy.dhall
+
 library
  exposed-modules:
      Gargantext

--- a/src/Gargantext/Core/Text/Corpus/API/OpenAlex.hs
+++ b/src/Gargantext/Core/Text/Corpus/API/OpenAlex.hs
@@ -24,7 +24,7 @@ get :: Text
    -> Maybe Limit
    -> IO (Either ClientError (Maybe Integer, ConduitT () HyperdataDocument IO ()))
 get _email q _l = do
-  eRes <- OA.fetchWorksC Nothing $ Just $ Corpus.getRawQuery q
+  eRes <- OA.fetchWorksC Nothing Nothing $ Just $ Corpus.getRawQuery q
  pure $ (\(len, docsC) -> (len, docsC .| takeC 1000 .| mapC toDoc)) <$> eRes

 toDoc :: OA.Work -> HyperdataDocument

--- a/stack.yaml
+++ b/stack.yaml
@@ -60,7 +60,7 @@ extra-deps:
 - git: https://gitlab.iscpif.fr/gargantext/crawlers/arxiv-api.git
  commit: 2d7e5753cbbce248b860b571a0e9885415c846f7
 - git: https://gitlab.iscpif.fr/gargantext/crawlers/openalex.git
-  commit: 723a641f108e11e0b57ecbf22d279aca81317c0a
+  commit: 0083c02d62441d73f3616409c6453c87302c698f
  # NP libs
 - git: https://github.com/alpmestan/servant-job.git
  commit: b4182487cfe479777c11ca19f3c0d47840b376f6