Skip to content

haskell-gargantext
haskell-gargantext
Commit 7318ecfa authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] Pubmed parser

parent b44f9f6e
Hide whitespace changes
Inline Side-by-side
Showing with 5 additions and 2 deletions
src/Gargantext/Core/Text/Corpus/API/Pubmed.hs
View file @ 7318ecfa
......@@ -28,8 +28,11 @@ import qualified PUBMED.Parser as PubMedDoc
type Query = Text
type Limit = PubMed.Limit
-- | TODO put default pubmed query in gargantext.ini
-- by default: 10K docs
get :: Query -> Maybe Limit -> IO [HyperdataDocument]
get q l = either (\e -> panic $ "CRAWL: PubMed" <> e) (map (toDoc EN)) <$> PubMed.getMetadataWith q l
get q _l = either (\e -> panic $ "CRAWL: PubMed" <> e) (map (toDoc EN)) <$> PubMed.getMetadataWith q (Just 10000)
toDoc :: Lang -> PubMedDoc.PubMed -> HyperdataDocument
toDoc l (PubMedDoc.PubMed (PubMedDoc.PubMedArticle t j as aus)
......
stack.yaml
View file @ 7318ecfa
......@@ -36,7 +36,7 @@ extra-deps:
#
# External API connectin to get data
- git: https://gitlab.iscpif.fr/gargantext/crawlers/pubmed.git
commit: dc1457a96cd80b8bfa310572db19cbb01201904e
commit: a9d8e08a7ef82f90e29dfaced4071704a3163394
- git: https://gitlab.iscpif.fr/gargantext/crawlers/istex.git
commit: daeae80365250c4bd539f0a65e271f9aa37f731f
- 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