+pickle_news_team :: PU NewsTeam
+pickle_news_team =
+ xpElem "team" $
+ xpWrap (from_string, to_string) xpText
+ where
+ to_string :: NewsTeam -> String
+ to_string = team_name
+
+ from_string :: String -> NewsTeam
+ from_string = NewsTeam
+
+instance XmlPickler NewsTeam where
+ xpickle = pickle_news_team