-- | The database representation of a team. The 'team_id' is a
-- 'String' field because some teams do in fact have ids like
--- \"B52\".
+-- \"B52\". The pointless \"team_\" prefix is left on the 'team_id'
+-- field because otherwise the auto-generated column name would
+-- conflict with the default \"id\" primary key.
--
data Team =
Team {
team_id :: String, -- ^ Some of them contain characters
- team_abbreviation :: String,
- team_name :: String }
+ abbreviation :: Maybe String, -- ^ Some teams don't have abbreviations,
+ -- or at least, some sample jfilexml
+ -- don't have them for some teams.
+ name :: Maybe String -- ^ Some teams don't even have names!
+ }
deriving (Eq, Show)