Set "withSubstDTDEntities no" for now.

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

diff --git a/src/Xml.hs b/src/Xml.hs
index bbb72be0348d1864ddf3094fda6173769ef247f1..3f7bb62cae43fc0cb8dbe42bf54741e448980fbd 100644 (file)
--- 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