module Text.Feed.Export
( Text.Feed.Export.xmlFeed
, Text.Feed.Export.textFeed
) where
import Prelude.Compat
import Text.Feed.Types
import Text.Atom.Feed.Export as Atom
import Text.RSS.Export as RSS
import Text.RSS1.Export as RSS1
import qualified Data.Text.Util as U
import Data.XML.Types as XML
import qualified Data.Text.Lazy as TL
xmlFeed :: Feed -> XML.Element
xmlFeed :: Feed -> Element
xmlFeed fe :: Feed
fe =
case Feed
fe of
AtomFeed f :: Feed
f -> Feed -> Element
Atom.xmlFeed Feed
f
RSSFeed f :: RSS
f -> RSS -> Element
RSS.xmlRSS RSS
f
RSS1Feed f :: Feed
f -> Feed -> Element
RSS1.xmlFeed Feed
f
XMLFeed e :: Element
e -> Element
e
textFeed :: Feed -> Maybe TL.Text
textFeed :: Feed -> Maybe Text
textFeed = (Feed -> Element) -> Feed -> Maybe Text
forall a. (a -> Element) -> a -> Maybe Text
U.renderFeed Feed -> Element
Text.Feed.Export.xmlFeed