X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FXml.hs;h=7f641b2fb54d1847215b7733331312c46f5b11b0;hb=000318e2a4b56772a9ef219a13e960acea6453b6;hp=2f68dd09c661de44048f78fe0a45314fe4d38b98;hpb=10e7a7d5c354cdaa47d479f785a76eb6bf49e535;p=dead%2Fhtsn-import.git

diff --git a/src/Xml.hs b/src/Xml.hs
index 2f68dd0..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
@@ -106,7 +105,7 @@ pickle_unpickle :: XmlPickler a
 pickle_unpickle root_element filepath = do
   -- We need to check only the root message element since
   -- readDocument produces a bunch of other junk.
-    expected <- runX $ arr_getobj
+    expected <- runX arr_getobj
     actual <- runX $ arr_getobj
                      >>>
                      xpickleVal xpickle