GitHub

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
      ]

Read the original on github.com ↗