diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2024-02-26 15:18:16 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2024-02-26 15:18:16 +0100 |
| commit | 6245475c407a118ba167e11744665616b0e90b3c (patch) | |
| tree | 03d83984937218ede229fb6bcc00f5b56b83475f /atom-conduit.patch | |
| parent | 34c67488c6ebdc19daf7699d424e8257619aa96d (diff) | |
merge feeds
Diffstat (limited to 'atom-conduit.patch')
| -rw-r--r-- | atom-conduit.patch | 13 |
1 files changed, 13 insertions, 0 deletions
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 () |