{-# 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
[ un...
