X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FXml.hs;fp=src%2FXml.hs;h=3f7bb62cae43fc0cb8dbe42bf54741e448980fbd;hb=6c1e96b2a155336038c010ebd4f28795b152e5b0;hp=bbb72be0348d1864ddf3094fda6173769ef247f1;hpb=e207228e7b7b47f4cbe16b578ce16cea009b15f9;p=dead%2Fhtsn-import.git

diff --git a/src/Xml.hs b/src/Xml.hs
index bbb72be..3f7bb62 100644
--- a/src/Xml.hs
+++ b/src/Xml.hs
@@ -26,6 +26,7 @@ import Text.XML.HXT.Core (
   readDocument,
   runX,
   withRemoveWS,
+  withSubstDTDEntities,
   withValidate,
   xpickleVal,
   xunpickleVal,
@@ -80,7 +81,9 @@ newtype DtdName = DtdName String
 --   would have to parse whitespace in each (un)pickler.
 --
 parse_opts :: SysConfigList
-parse_opts = [ withRemoveWS yes, withValidate no ]
+parse_opts = [ withRemoveWS yes,
+               withSubstDTDEntities no,
+               withValidate no ]
 
 
 -- | Given an @unpickler@ and a @filepath@, attempt to unpickle the