From 6245475c407a118ba167e11744665616b0e90b3c Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Mon, 26 Feb 2024 15:18:16 +0100 Subject: merge feeds --- atom-conduit.patch | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 atom-conduit.patch (limited to 'atom-conduit.patch') diff --git a/atom-conduit.patch b/atom-conduit.patch new file mode 100644 index 0000000..241a05e --- /dev/null +++ b/atom-conduit.patch @@ -0,0 +1,13 @@ +diff --git a/src/Text/Atom/Conduit/Parse.hs b/src/Text/Atom/Conduit/Parse.hs +index ee77987..7fc3b59 100644 +--- a/src/Text/Atom/Conduit/Parse.hs ++++ b/src/Text/Atom/Conduit/Parse.hs +@@ -88,7 +88,7 @@ tagIgnoreAttrs' :: MonadThrow m => Text -> ConduitM Event o m a -> ConduitM Even + tagIgnoreAttrs' name handler = tagName' name ignoreAttrs $ const handler + + xhtmlContent :: MonadThrow m => ConduitM Event o m XML.Element +-xhtmlContent = force "element" $ many_ takeAnyTreeContent .| mapC (Nothing, ) .| Unresolved.elementFromEvents ++xhtmlContent = force "element" $ ignoreContent *> many_ takeAnyTreeContent .| mapC (Nothing, ) .| Unresolved.elementFromEvents + + + projectC :: Monad m => Traversal' a b -> ConduitT a b m () -- cgit v1.2.3