--------------------------------------------------------------------
-- |
-- Module    : Text.Feed.Export
-- Copyright : (c) Galois, Inc. 2008,
--             (c) Sigbjorn Finne 2009-
-- License   : BSD3
--
-- Maintainer: Sigbjorn Finne <sof@forkIO.com>
-- Stability : provisional
--
-- Convert from Feeds to XML.
--
--------------------------------------------------------------------
module Text.Feed.Export
  ( Text.Feed.Export.xmlFeed -- :: Feed -> XML.Element
  , Text.Feed.Export.textFeed -- :: Feed -> TL.Text
  ) 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 f' serializes a @Feed@ document into a conforming
-- XML toplevel element.
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 -- that was easy!

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