From 3b91dab2cc716aac332368e707f4ed27f059838a Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Thu, 9 Jan 2014 23:59:38 -0500
Subject: [PATCH] Begin validating the XML. Fix a bug in the Injuries pickling.

---
 src/TSN/XML/Injuries.hs | 2 +-
 src/Xml.hs              | 3 +--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/TSN/XML/Injuries.hs b/src/TSN/XML/Injuries.hs
index bea54d3..f425f89 100644
--- a/src/TSN/XML/Injuries.hs
+++ b/src/TSN/XML/Injuries.hs
@@ -96,7 +96,7 @@ pickle_injuries_team :: PU InjuriesTeam
 pickle_injuries_team =
   xpElem "team" $
     xpWrap (from_tuple, to_tuple) $
-    xpPair xpText (xpAttr "league" (xpOption xpText))
+    xpPair xpText (xpOption $ xpAttr "league" xpText)
   where
     from_tuple = uncurryN InjuriesTeam
     to_tuple m = (team_name m, team_league m)
diff --git a/src/Xml.hs b/src/Xml.hs
index e98e4b1..7f641b2 100644
--- a/src/Xml.hs
+++ b/src/Xml.hs
@@ -79,8 +79,7 @@ parse_opts :: SysConfigList
 parse_opts =
   [ withPreserveComment no,
     withRemoveWS yes,
-    withSubstDTDEntities no,
-    withValidate no ]
+    withSubstDTDEntities no ]
 
 
 -- | Given a root element name and a file path, return both the
-- 
2.43.2