- game_id :: Int,
- game_date :: String, -- TODO
- game_time :: String, -- TODO
- game_away_team :: OddsAwayTeam,
- game_home_team :: OddsHomeTeam,
- game_over_under :: OddsOverUnder }
+ db_game_id :: Int,
+ db_game_date :: String, -- TODO
+ db_game_time :: String, -- TODO
+ db_game_away_team_id :: DefaultKey OddsTeam,
+ db_game_away_team_rotation_number :: Int,
+ db_game_home_team_id :: DefaultKey OddsTeam,
+ db_game_home_team_rotation_number :: Int }
+deriving instance Eq OddsGame
+deriving instance Show OddsGame
+
+data OddsGameXml =
+ OddsGameXml {
+ xml_game_id :: Int,
+ xml_game_date :: String, -- TODO
+ xml_game_time :: String, -- TODO
+ xml_game_away_team :: OddsAwayTeamXml,
+ xml_game_home_team :: OddsHomeTeamXml,
+ xml_game_over_under :: OddsOverUnder }