X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FXml.hs;h=3242dacd8b2a7a69c997acb527846dfaaeb0ff75;hb=12a8d95e873234893066e9422e0ce731e0e3e6ac;hp=866ac4647fc258326cf8369ad5783f0a1ee375a6;hpb=4cdcdbe593c30f6434a25896951a1a4dfcc2b1ca;p=dead%2Fhtsn-import.git

diff --git a/src/Xml.hs b/src/Xml.hs
index 866ac46..3242dac 100644
--- a/src/Xml.hs
+++ b/src/Xml.hs
@@ -17,11 +17,12 @@ import Text.XML.HXT.Core (
   (/>),
   PU,
   SysConfigList,
-  XmlPickler(..),
   isElem,
+  no,
   readDocument,
   runX,
   withRemoveWS,
+  withValidate,
   xpickleVal,
   xunpickleVal,
   yes )
@@ -55,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