Light-weight library for simple parsing and creation of XML documents.
It only depends on base, bytestring and text.
The library primarily uses the String type, which makes it rather
inefficient for large files.
{-# LANGUAGE RecordWildCards #-}
import Text.XML.Light
data Package = Package
{ pOrderNo :: String
, pOrderPos :: String
, pBarcode :: String
, pNumber :: String
}
-- | Create XML from a Package
instance Node Package where
node qn Package {..} =
node qn
[ unode "package_number" pNumber
, unode "package_barcode" pBarcode
, unode "order_number" pOrderNo
, unode "order_position" pOrderPos
]