Change the Odds database type to 'Odds' in Main.hs.

[dead/htsn-import.git] / src / Xml.hs

diff --git a/src/Xml.hs b/src/Xml.hs
index 2f68dd09c661de44048f78fe0a45314fe4d38b98..7f641b2fb54d1847215b7733331312c46f5b11b0 100644 (file)
--- 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