pickle_message :: PU Message
pickle_message =
xpElem "message" $
xpWrap (from_tuple, to_tuple) $
xpTriple (xpElem "XML_File_ID" xpInt)
(xpElem "heading" xpText)
pickle_message :: PU Message
pickle_message =
xpElem "message" $
xpWrap (from_tuple, to_tuple) $
xpTriple (xpElem "XML_File_ID" xpInt)
(xpElem "heading" xpText)