[FIX] Xml parsers

src/Gargantext/API/Routes.hs

@@ -249,7 +249,7 @@ addCorpusWithQuery :: User -> GargServer New.AddWithQuery
 addCorpusWithQuery user cid = do
   -- TODO gargantext.ini
   -- _env <- view hasConfig
-  let limit = Just 10000
+  let limit = Just 100
   serveJobsAPI $
     JobFunction (\q log ->
       let

src/Gargantext/Core/Text/Corpus/Parsers/Wikimedia.hs

@@ -61,7 +61,7 @@ tagUntil name = matching (/= name)
 -- | Utility function that consumes everything but the tag given
 -- usefull because we have to consume every data.
 manyTagsUntil_ :: MonadThrow m => Name -> ConduitT Event o m ()
-manyTagsUntil_ n = many_ (ignoreTreeContent (tagUntil n) ignoreAttrs)
+manyTagsUntil_ n = many_ (ignoreTree (tagUntil n) ignoreAttrs)
 
 manyTagsUntil_' :: MonadThrow m => Name -> ConduitT Event o m ()
 manyTagsUntil_' = many_ . ignoreEmptyTag . tagUntil

stack.yaml

@@ -36,7 +36,7 @@ extra-deps:
     #
     # External API connectin to get data
 - git: https://gitlab.iscpif.fr/gargantext/crawlers/pubmed.git
-  commit: 7e9498491f9dba5636006e15ccd4ea6124f98ff0
+  commit: dc1457a96cd80b8bfa310572db19cbb01201904e
 - git: https://gitlab.iscpif.fr/gargantext/crawlers/istex.git
   commit: daeae80365250c4bd539f0a65e271f9aa37f731f
 - git: https://gitlab.iscpif.fr/gargantext/crawlers/hal.git