Haskell Language
XML
サーチ…
前書き
XML文書のエンコードとデコード
`xml`ライブラリを使ってレコードをエンコードする
{-# 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
]
Modified text is an extract of the original Stack Overflow Documentation
ライセンスを受けた CC BY-SA 3.0
所属していない Stack Overflow