Skip to content

P
pubmed
Commit dc1457a9 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] ignoreTree

parent 7e949849
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
app/Main.hs
View file @ dc1457a9
...@@ -6,4 +6,4 @@ import PUBMED (getMetadataWith) ...@@ -6,4 +6,4 @@ import PUBMED (getMetadataWith)
main :: IO () main :: IO ()
main = getMetadataWith "bisphenol" (Just 1000000) >>= print main = getMetadataWith "bisphenol" (Just 100) >>= print
src/PUBMED/Parser.hs
View file @ dc1457a9
...@@ -53,7 +53,7 @@ tagUntil name = matching (/= name) ...@@ -53,7 +53,7 @@ tagUntil name = matching (/= name)
-- | Utility function that consumes everything but the tag given -- | Utility function that consumes everything but the tag given
-- usefull because we have to consume every data. -- usefull because we have to consume every data.
manyTagsUntil_ :: MonadThrow m => Name -> ConduitT Event o m () 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_' :: MonadThrow m => Name -> ConduitT Event o m ()
manyTagsUntil_' = many_ . ignoreEmptyTag . tagUntil manyTagsUntil_' = many_ . ignoreEmptyTag . tagUntil
......
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