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

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

import Text.XML.Light.Output

import Data.FileStore (FileStore)
import Network.Orchid.Core.Format
import Network.Protocol.Uri
import Text.Document.Document

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

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