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