X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FTeam.hs;h=97e36475e59c14ea93c64a819e5b275b121bdd87;hb=adfab819cdeb2774e811f68f4c7dda7668b1fa77;hp=910c67120da44aa0b621f1bf3db87315c94694a2;hpb=4f3de61fd6e53c74a8c1a7a6b1d478a5571591d9;p=dead%2Fhtsn-import.git

diff --git a/src/TSN/Team.hs b/src/TSN/Team.hs
index 910c671..97e3647 100644
--- a/src/TSN/Team.hs
+++ b/src/TSN/Team.hs
@@ -4,10 +4,10 @@
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE TypeFamilies #-}
 
--- | Two different XML types have a notion of teams: "TSN.XML.Odds"
---   and "TSN.XML.JFile". And in fact those two types agree on the
---   team id, abbreviation, and name -- at least for the database
---   representation.
+-- | (At least) two different XML types have a notion of teams:
+--   "TSN.XML.Odds" and "TSN.XML.JFile". And in fact those two types
+--   agree on the team id, abbreviation, and name -- at least for the
+--   database representation.
 --
 --   This module contains a data type for the common database
 --   representation.
@@ -28,15 +28,17 @@ import Database.Groundhog.TH (
 
 -- | 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 :: Maybe String, -- ^ Some teams don't have abbreviations,
-                                       --   or at least, some sample jfilexml
-                                       --   don't have them for some teams.
-    team_name :: Maybe String -- ^ Some teams don't even have names!
+    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)
 
@@ -48,7 +50,7 @@ mkPersist defaultCodegenConfig [groundhog|
   constructors:
     - name: Team
       uniques:
-        - name: unique_odds_games_team
+        - name: unique_team
           type: constraint
           fields: [team_id]
 |]