+-- * JFileGameAwayTeamXml / JFileGameHomeTeamXml
+
+-- | The XML representation of a JFile away team. Its corresponding
+-- database representation (along with that of the home team) is a
+-- TSN.Team, but their XML representations are different.
+data JFileGameAwayTeamXml =
+ JFileGameAwayTeamXml {
+ away_team_id :: String,
+ away_team_abbreviation :: String,
+ away_team_name :: String }
+ deriving (Eq, Show)
+
+instance ToDb JFileGameAwayTeamXml where
+ -- | The database analogue of an 'JFileGameAwayTeamXml' is
+ -- a 'Team'.
+ --
+ type Db JFileGameAwayTeamXml = Team
+
+instance FromXml JFileGameAwayTeamXml where
+ -- | To convert a 'JFileGameAwayTeamXml' to a 'Team', we do just
+ -- about nothing.
+ --
+ from_xml JFileGameAwayTeamXml{..} =
+ Team {
+ team_id = away_team_id,
+ team_abbreviation = away_team_abbreviation,
+ team_name = away_team_name }
+
+-- | Allow us to import JFileGameAwayTeamXml directly.
+instance XmlImport JFileGameAwayTeamXml
+
+
+-- | The XML representation of a JFile home team. Its corresponding
+-- database representation (along with that of the away team) is a
+-- TSN.Team, but their XML representations are different.
+data JFileGameHomeTeamXml =
+ JFileGameHomeTeamXml {
+ home_team_id :: String,
+ home_team_abbreviation :: String,
+ home_team_name :: String }
+ deriving (Eq, Show)
+
+instance ToDb JFileGameHomeTeamXml where
+ -- | The database analogue of an 'JFileGameHomeTeamXml' is
+ -- a 'Team'.
+ --
+ type Db JFileGameHomeTeamXml = Team
+
+instance FromXml JFileGameHomeTeamXml where
+ -- | To convert a 'JFileGameHomeTeamXml' to a 'Team', we do just
+ -- about nothing.
+ --
+ from_xml JFileGameHomeTeamXml{..} =
+ Team {
+ team_id = home_team_id,
+ team_abbreviation = home_team_abbreviation,
+ team_name = home_team_name }
+
+-- | Allow us to import JFileGameHomeTeamXml directly.
+instance XmlImport JFileGameHomeTeamXml
+
+
+-- * JFileGame/JFileGameXml
+