X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FXML%2FInjuriesDetail.hs;h=81b915df29b9bcb5f9004d6b77155c02872aceb9;hb=79cba02a6f520256991b345e9dffdaedf68ddde0;hp=cb3afeae4446892f9dafece85b063a8d29e62716;hpb=76cf3eee776d35ba2b18dd0d07df7496a083ae3a;p=dead%2Fhtsn-import.git

diff --git a/src/TSN/XML/InjuriesDetail.hs b/src/TSN/XML/InjuriesDetail.hs
index cb3afea..81b915d 100644
--- a/src/TSN/XML/InjuriesDetail.hs
+++ b/src/TSN/XML/InjuriesDetail.hs
@@ -40,6 +40,7 @@ import Text.XML.HXT.Core (
   xp6Tuple,
   xp10Tuple,
   xpElem,
+  xpInt,
   xpList,
   xpPrim,
   xpText,
@@ -95,14 +96,14 @@ pickle_player_listing =
   xpElem "PlayerListing" $
     xpWrap (from_tuple, to_tuple) $
     xp10Tuple (xpElem "TeamID" xp_team_id)
-              (xpElem "PlayerID" xpPrim)
+              (xpElem "PlayerID" xpInt)
               (xpElem "Date" xp_date)
               (xpElem "Pos" xpText)
               (xpElem "Name" xpText)
               (xpElem "Injury" xpText)
               (xpElem "Status" xpText)
               (xpElem "Fantasy" xpText0)
-              (xpElem "Injured" xpickle)
+              (xpElem "Injured" xpPrim)
               (xpElem "Type" xpText)
   where
     from_tuple = uncurryN PlayerListing
@@ -139,7 +140,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)