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

diff --git a/src/TSN/Team.hs b/src/TSN/Team.hs
index d022520..910c671 100644
--- a/src/TSN/Team.hs
+++ b/src/TSN/Team.hs
@@ -33,8 +33,11 @@ import Database.Groundhog.TH (
 data Team =
   Team {
     team_id :: String, -- ^ Some of them contain characters
-    team_abbreviation :: String,
-    team_name :: String }
+    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!
+    }
   deriving (Eq, Show)