Skip to content

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

[pubmed] use fixed pubmed repo, fix per page to be > 20

parent 37d418f2
Pipeline #3850 failed with stage
    in 30 minutes and 20 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 5 additions and 4 deletions
    src/Gargantext/Core/Text/Corpus/API/Pubmed.hs
    View file @ 151b9174
    ......@@ -41,9 +41,10 @@ get :: Maybe Text
    -> Maybe Limit
    -> IO (Either ClientError (Maybe Integer, ConduitT () HyperdataDocument IO ()))
    get mAPIKey q l = do
    eRes <- runReaderT PubMed.getMetadataWithC (Config { apiKey = mAPIKey
    , query = q
    , perPage = Nothing })
    eRes <- runReaderT PubMed.getMetadataWithC (Config { apiKey = mAPIKey
    , query = q
    , perPage = Just 200
    , mWebEnv = Nothing })
    let takeLimit = case l of
    Nothing -> mapC identity
    Just l' -> takeC $ fromIntegral l'
    ......
    stack.yaml
    View file @ 151b9174
    ......@@ -74,7 +74,7 @@ extra-deps:
    # External Data API connectors
    - git: https://gitlab.iscpif.fr/gargantext/crawlers/pubmed.git
    commit: 4ade495751eaf31d3ca1ac8b0ae13d3538c6e18c
    commit: 234ad423fa682307ff4843ae4acd725dcc6ffc55
    - git: https://gitlab.iscpif.fr/gargantext/crawlers/istex.git
    commit: a34bb341236d82cf3d488210bc1d8448a98f5808
    - git: https://gitlab.iscpif.fr/gargantext/crawlers/hal.git
    ......
    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