--- | Convert a 'Location' to/from XML.
---
-pickle_location :: PU Location
-pickle_location =
- xpElem "location" $
- xpWrap (from_tuple, to_tuple) $
- xpTriple (xpOption (xpElem "city" xpText))
- (xpOption (xpElem "state" xpText))
- (xpElem "country" xpText)
- where
- from_tuple =
- uncurryN Location
- to_tuple l = (city l, state l, country l)
-