blob: 241a05e705c06408ae142c0ac3c205cdd98be761 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
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 ()
|
