--- * ScheduleChangesListing_Team
-
--- | Database mapping between listings and their home/away teams.
---
-data ScheduleChangesListing_Team =
- ScheduleChangesListing_Team {
- sclt_schedule_changes_listings_id :: DefaultKey ScheduleChangesListing,
- sclt_away_team_id :: DefaultKey Team,
- sclt_home_team_id :: DefaultKey Team }
-
-
--- * 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 :: 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\" and wrap
- -- the always-present name field in \"Just\".
- --
- from_xml ScheduleChangesListingAwayTeamXml{..} =
- Team {
- team_id = away_team_id,
- team_abbreviation = Nothing,
- team_name = Just 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 :: 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\" and wrap
- -- the always-present name field in \"Just\".
- --
- from_xml ScheduleChangesListingHomeTeamXml{..} =
- Team {
- team_id = home_team_id,
- team_abbreviation = Nothing,
- team_name = Just home_team_name }
-
--- | Allow us to import ScheduleChangesListingHomeTeamXml directly.
-instance XmlImport ScheduleChangesListingHomeTeamXml
-