[Upgrade] stack

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_ = many_ . ignoreTreeContent . tagUntil
+manyTagsUntil_ n = many_ ( ignoreTreeContent (tagUntil n) ignoreAttrs)
 
 manyTagsUntil_' :: MonadThrow m => Name -> ConduitT Event o m ()
 manyTagsUntil_' = many_ . ignoreEmptyTag . tagUntil

stack.yaml

@@ -17,7 +17,7 @@
 #
 # resolver: ./custom-snapshot.yaml
 # resolver: https://example.com/snapshots/2018-01-01.yaml
-resolver: lts-13.13
+resolver: lts-16.14
 
 # User packages to be built.
 # Various formats can be used as shown in the example below.