--- * ScheduleChangesListingTeamXml
-
--- | The XML representation of a 'ScheduleChangesListing'
--- team. Its corresponding database representation (along with that
--- of the home team) is a "TSN.Team", but their XML representations
--- are slightly different.
---
-data ScheduleChangesListingTeamXml =
- ScheduleChangesListingTeamXml {
- xml_team_id :: String,
- xml_team_name :: Maybe String }
- deriving (Eq, Show)
-
-
-instance ToDb ScheduleChangesListingTeamXml where
- -- | The database analogue of an 'ScheduleChangesListingTeamXml' is
- -- a 'Team'.
- --
- type Db ScheduleChangesListingTeamXml = Team
-
-
-instance FromXml ScheduleChangesListingTeamXml where
- -- | To convert a 'ScheduleChangesListingTeamXml' to a 'Team',
- -- we set the non-existent abbreviation to \"Nothing\".
- --
- from_xml ScheduleChangesListingTeamXml{..} =
- Team {
- team_id = xml_team_id,
- abbreviation = Nothing,
- name = xml_team_name }
-
--- | Allow us to import ScheduleChangesListingTeamXml directly.
---
-instance XmlImport ScheduleChangesListingTeamXml
-
-
-