From: Michael Orlitzky <michael@orlitzky.com>
Date: Fri, 4 Jul 2014 19:52:25 +0000 (-0400)
Subject: Crop the AutoRacingResults dbschema diagram.
X-Git-Tag: 0.0.6~35
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=5a8d0ad5929fb297c74ea0802c11f9aa94b25ce7;p=dead%2Fhtsn-import.git

Crop the AutoRacingResults dbschema diagram.
Make the Injuries teamno field a String thanks to a new sample.
Update the Injuries dbschema diagram.
---

diff --git a/doc/dbschema/AutoRacingResultsXML.png b/doc/dbschema/AutoRacingResultsXML.png
index 6048429..9ea9386 100644
Binary files a/doc/dbschema/AutoRacingResultsXML.png and b/doc/dbschema/AutoRacingResultsXML.png differ
diff --git a/doc/dbschema/injuriesxml.png b/doc/dbschema/injuriesxml.png
index 8ff6ee5..d3e2d50 100644
Binary files a/doc/dbschema/injuriesxml.png and b/doc/dbschema/injuriesxml.png differ
diff --git a/src/TSN/XML/Injuries.hs b/src/TSN/XML/Injuries.hs
index 6af9ad9..3f0fea5 100644
--- a/src/TSN/XML/Injuries.hs
+++ b/src/TSN/XML/Injuries.hs
@@ -102,7 +102,7 @@ data InjuriesTeam =
 data InjuriesListingXml =
   InjuriesListingXml {
     xml_team :: InjuriesTeam,
-    xml_teamno :: Maybe Int,
+    xml_teamno :: Maybe String, -- ^ Can contain non-numerics, e.g. \"ZR2\"
     xml_injuries :: String,
     xml_updated :: Maybe Bool }
   deriving (Eq, Show)
@@ -115,7 +115,7 @@ data InjuriesListing =
   InjuriesListing {
     db_injuries_id :: DefaultKey Injuries,
     db_team :: InjuriesTeam,
-    db_teamno :: Maybe Int,
+    db_teamno :: Maybe String, -- ^ Can contain non-numerics, e.g. \"ZR2\"
     db_injuries :: String,
     db_updated :: Maybe Bool }
 
@@ -264,7 +264,7 @@ pickle_listing =
   xpElem "listing" $
     xpWrap (from_tuple, to_tuple) $
     xp4Tuple pickle_injuries_team
-             (xpOption $ xpElem "teamno" xpInt)
+             (xpOption $ xpElem "teamno" xpText)
              (xpElem "injuries" xpText)
              (xpOption $ xpElem "updated" xpPrim)
   where