Skip to content

haskell-gargantext
haskell-gargantext
Verified Commit aa827322 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[openalex] use search instead of filter

parent fc05cfcb
Pipeline #4327 failed with stages
          in 114 minutes and 16 seconds
          Hide whitespace changes
          Inline Side-by-side
          Showing with 4 additions and 3 deletions
          cabal.project
          View file @ aa827322
          ...@@ -146,7 +146,7 @@ source-repository-package ...@@ -146,7 +146,7 @@ source-repository-package
          source-repository-package source-repository-package
          type: git type: git
          location: https://gitlab.iscpif.fr/gargantext/crawlers/openalex.git location: https://gitlab.iscpif.fr/gargantext/crawlers/openalex.git
          tag: 5aac73a7be1b86dcc312936c000e5e5444144491 tag: 0083c02d62441d73f3616409c6453c87302c698f
          allow-older: * allow-older: *
          allow-newer: * allow-newer: *
          ......
          gargantext.cabal
          View file @ aa827322
          ...@@ -29,6 +29,7 @@ data-files: ...@@ -29,6 +29,7 @@ data-files:
          test-data/phylo/bpa_phylo_test.json test-data/phylo/bpa_phylo_test.json
          test-data/phylo/open_science.json test-data/phylo/open_science.json
          .clippy.dhall .clippy.dhall
          library library
          exposed-modules: exposed-modules:
          Gargantext Gargantext
          ......
          src/Gargantext/Core/Text/Corpus/API/OpenAlex.hs
          View file @ aa827322
          ...@@ -24,7 +24,7 @@ get :: Text ...@@ -24,7 +24,7 @@ get :: Text
          -> Maybe Limit -> Maybe Limit
          -> IO (Either ClientError (Maybe Integer, ConduitT () HyperdataDocument IO ())) -> IO (Either ClientError (Maybe Integer, ConduitT () HyperdataDocument IO ()))
          get _email q _l = do 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 pure $ (\(len, docsC) -> (len, docsC .| takeC 1000 .| mapC toDoc)) <$> eRes
          toDoc :: OA.Work -> HyperdataDocument toDoc :: OA.Work -> HyperdataDocument
          ......
          stack.yaml
          View file @ aa827322
          ...@@ -60,7 +60,7 @@ extra-deps: ...@@ -60,7 +60,7 @@ extra-deps:
          - git: https://gitlab.iscpif.fr/gargantext/crawlers/arxiv-api.git - git: https://gitlab.iscpif.fr/gargantext/crawlers/arxiv-api.git
          commit: 2d7e5753cbbce248b860b571a0e9885415c846f7 commit: 2d7e5753cbbce248b860b571a0e9885415c846f7
          - git: https://gitlab.iscpif.fr/gargantext/crawlers/openalex.git - git: https://gitlab.iscpif.fr/gargantext/crawlers/openalex.git
          commit: 723a641f108e11e0b57ecbf22d279aca81317c0a commit: 0083c02d62441d73f3616409c6453c87302c698f
          # NP libs # NP libs
          - git: https://github.com/alpmestan/servant-job.git - git: https://github.com/alpmestan/servant-job.git
          commit: b4182487cfe479777c11ca19f3c0d47840b376f6 commit: b4182487cfe479777c11ca19f3c0d47840b376f6
          ......
          Markdown is supported
          0% or
          You are about to add 0 people to the discussion. Proceed with caution.
          Finish editing this message first!
          Please register or to comment