xmlbf example of rendering an instance as XML

xmlbf.hs

{-# LANGUAGE OverloadedStrings #-}

import Xmlbf
import Data.HashMap.Strict (empty)
import Data.ByteString.Builder (toLazyByteString)
import Data.Text (Text)
import qualified Data.ByteString.Lazy.Char8 as BSC
import Network.AWS.Data.Text (ToText(toText))

data Person = Person {name :: String, age :: Int} deriving Show

textElem :: ToText a => Text -> a -> Node
textElem name val = element' name empty [text $ toText val]

instance ToXml Person where
  toXml (Person name age) = [
      element' "person" empty [
        textElem "name" name,
        textElem "age" age 
      ]
    ]


xml = toLazyByteString $ encode $ toXml $ Person "Bob" 40

main = BSC.putStrLn xml

Prints <person><name>Bob</name><age>40</age></person>