Add a test for unpickling large Odds_XML files.

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

diff --git a/src/Xml.hs b/src/Xml.hs
index 1444c677a9b23ad923c39ea0f4cddd3d59b99ae6..3242dacd8b2a7a69c997acb527846dfaaeb0ff75 100644 (file)
--- a/src/Xml.hs
+++ b/src/Xml.hs
@@ -18,9 +18,11 @@ import Text.XML.HXT.Core (
   PU,
   SysConfigList,
   isElem,
+  no,
   readDocument,
   runX,
   withRemoveWS,
+  withValidate,
   xpickleVal,
   xunpickleVal,
   yes )
@@ -54,7 +56,7 @@ newtype DtdName = DtdName String
 --   would have to parse whitespace in each (un)pickler.
 --
 parse_opts :: SysConfigList
-parse_opts = [ withRemoveWS yes ]
+parse_opts = [ withRemoveWS yes, withValidate no ]
 
 
 -- | Given an @unpickler@ and a @filepath@, attempt to unpickle the