X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;ds=sidebyside;f=src%2FTSN%2FXML%2FInjuries.hs;h=53e24196c238c9c3ac2b8668287647fbe4e7b0ff;hb=a53f1a77e6d24d8a4771be4dd365f2738c50bf6f;hp=92bf4e27757dca8c1de4320a920a982be609d1df;hpb=76cf3eee776d35ba2b18dd0d07df7496a083ae3a;p=dead%2Fhtsn-import.git

diff --git a/src/TSN/XML/Injuries.hs b/src/TSN/XML/Injuries.hs
index 92bf4e2..53e2419 100644
--- a/src/TSN/XML/Injuries.hs
+++ b/src/TSN/XML/Injuries.hs
@@ -33,6 +33,7 @@ import Text.XML.HXT.Core (
   xp4Tuple,
   xp6Tuple,
   xpElem,
+  xpInt,
   xpList,
   xpPrim,
   xpText,
@@ -73,7 +74,7 @@ pickle_listing =
   xpElem "listing" $
     xpWrap (from_tuple, to_tuple) $
     xp4Tuple (xpElem "team" xpText)
-             (xpElem "teamno" xpPrim)
+             (xpElem "teamno" xpInt)
              (xpElem "injuries" xpText)
              (xpElem "updated" xpPrim)
   where
@@ -88,7 +89,7 @@ pickle_message :: PU Message
 pickle_message =
   xpElem "message" $
     xpWrap (from_tuple, to_tuple) $
-    xp6Tuple (xpElem "XML_File_ID" xpPrim)
+    xp6Tuple (xpElem "XML_File_ID" xpInt)
              (xpElem "heading" xpText)
              (xpElem "category" xpText)
              (xpElem "sport" xpText)