Remove the XmlPickler instance for Bool.

[dead/htsn-import.git] / src / TSN / XML / Injuries.hs

diff --git a/src/TSN/XML/Injuries.hs b/src/TSN/XML/Injuries.hs
index 92bf4e27757dca8c1de4320a920a982be609d1df..53e24196c238c9c3ac2b8668287647fbe4e7b0ff 100644 (file)
--- 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)