-- >
-- > AT&T bought by SBC!
-- >
-- >
atomText :: MonadThrow m => Text -> ConduitM Event o m (Maybe AtomText)
atomText name = tagName' name (optional (requireAttr "type") <* ignoreAttrs) handler
where handler (Just "xhtml") = AtomXHTMLText <$> xhtmlContent
handler (Just "html") = AtomPlainText TypeHTML <$> content
handler _ = AtomPlainText TypeText <$> content
-- | Parse an @atom:generator@ element.
-- Example:
--
-- >