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