diff options
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 () |