orchid-0.0.6: src/Network/Orchid/Format/Xml.hs

module Network.Orchid.Format.Xml (fXml) where

import Text.XML.Light.Output

import Text.Document.Document
import Network.Orchid.Core.Backend
import Network.Orchid.Core.Format
import Network.Protocol.Uri

fXml = WikiFormat "xml" "text/xml" xml

xml :: Backend -> FilePath -> URI -> String -> IO Output
xml _ _ _ src = return
  $ TextOutput
  $ either show (ppContent . toXML)
  $ fromWiki src