[FIX] ignoreTree

dc1457a9 · Alexandre Delanoë · 7e949849 · dc1457a9 · dc1457a9
Commit dc1457a9 authored Sep 18, 2020 by Alexandre Delanoë
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

Main.hs app/Main.hs +1 -1

Parser.hs src/PUBMED/Parser.hs +1 -1

No files found.
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -6,4 +6,4 @@ import PUBMED (getMetadataWith)


 main :: IO ()
-main = getMetadataWith "bisphenol" (Just 1000000) >>= print
+main = getMetadataWith "bisphenol" (Just 100) >>= print
--- a/src/PUBMED/Parser.hs
+++ b/src/PUBMED/Parser.hs
@@ -53,7 +53,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