module Snap.App.XML where import Text.XML.Light import Snap.App import qualified Data.Text as T -- | Output the given XML element. outputXML :: Element -> Controller c s () outputXML = writeText . T.pack . showElement