import TSN.Codegen (
tsn_codegen_config )
import TSN.DbImport ( DbImport(..), ImportResult(..), run_dbmigrate )
-import TSN.Picklers ( xp_date, xp_team_id, xp_time )
+import TSN.Picklers ( xp_date, xp_time )
import TSN.XmlImport ( XmlImport(..) )
import Xml ( FromXml(..), pickle_unpickle, unpickleable )
--
data OddsGameTeam =
OddsGameTeam {
- db_team_id :: String, -- ^ The home/away team IDs are 3 characters
+ db_team_id :: String, -- ^ The home/away team IDs are
+ -- three characters but Postgres
+ -- imposes no performance penalty
+ -- on lengthless text fields, so
+ -- we ignore the probable upper
+ -- bound of three characters.
db_abbr :: String,
db_team_name :: String }
deriving (Eq, Show)
--
data OddsGameHomeTeamXml =
OddsGameHomeTeamXml {
- xml_home_team_id :: String, -- ^ These are three-character IDs.
+ xml_home_team_id :: String, -- ^ The home/away team IDs
+ -- are three characters but
+ -- Postgres imposes no
+ -- performance penalty on
+ -- lengthless text fields,
+ -- so we ignore the probable
+ -- upper bound of three
+ -- characters.
xml_home_rotation_number :: Int,
xml_home_abbr :: String,
xml_home_team_name :: String,
--
data OddsGameAwayTeamXml =
OddsGameAwayTeamXml {
- xml_away_team_id :: String, -- ^ These are 3 character IDs.
+ xml_away_team_id :: String, -- ^ The home/away team IDs are
+ -- three characters but Postgres
+ -- imposes no performance penalty
+ -- on lengthless text fields, so
+ -- we ignore the probable upper
+ -- bound of three characters
xml_away_rotation_number :: Int,
xml_away_abbr :: String,
xml_away_team_name :: String,
Odds {
db_sport :: String,
db_title :: String,
- db_line_time :: String }
+ db_line_time :: String -- ^ We don't parse these as a 'UTCTime'
+ -- because their timezones are ambiguous
+ -- (and the date is less than useful when
+ -- it might be off by an hour).
+ }
-- | Map 'Odds' to their children 'OddsGame's.
dbName: odds_games_teams
constructors:
- name: OddsGameTeam
- fields:
- - name: db_team_id
- type: varchar(3) # We've only seen 3, so far...
uniques:
- name: unique_odds_games_team
type: constraint
xpElem "HomeTeam" $
xpWrap (from_tuple, to_tuple) $
xp5Tuple
- (xpElem "HomeTeamID" xp_team_id)
+ (xpElem "HomeTeamID" xpText)
(xpElem "HomeRotationNumber" xpInt)
(xpElem "HomeAbbr" xpText)
(xpElem "HomeTeamName" xpText)
xpElem "AwayTeam" $
xpWrap (from_tuple, to_tuple) $
xp5Tuple
- (xpElem "AwayTeamID" xp_team_id)
+ (xpElem "AwayTeamID" xpText)
(xpElem "AwayRotationNumber" xpInt)
(xpElem "AwayAbbr" xpText)
(xpElem "AwayTeamName" xpText)