-- used our named fields.
to_xml (NewsTeam {..}) = NewsTeamXml db_team_name
-- We can't create a DefaultKey Message...
- from_xml = error "Called from_xml on a NewsTeam"
+ from_xml = error "Called from_xml on a NewsTeam."
-- unless we're handed one.
from_xml_fk key = (NewsTeam key) . xml_team_name
-- used our named fields.
to_xml (NewsLocation {..}) = NewsLocationXml db_city db_state db_country
-- We can't create a DefaultKey Message...
- from_xml = error "Called from_xml on a NewsLocation"
+ from_xml = error "Called from_xml on a NewsLocation."
-- unless we're given one.
from_xml_fk key (NewsLocationXml x y z) = NewsLocation key x y z