+pickle_injuries_team :: PU InjuriesTeam
+pickle_injuries_team =
+ xpElem "team" $
+ xpWrap (from_tuple, to_tuple) $
+ xpPair xpText (xpAttr "league" (xpOption xpText))
+ where
+ from_tuple = uncurryN InjuriesTeam
+ to_tuple m = (team_name m, team_league m)
+
+instance XmlPickler InjuriesTeam where
+ xpickle = pickle_injuries_team
+