From: Michael Orlitzky <michael@orlitzky.com>
Date: Tue, 21 Jan 2014 07:16:12 +0000 (-0500)
Subject: Set "withSubstDTDEntities no" for now.
X-Git-Tag: 0.0.1~19
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=6c1e96b2a155336038c010ebd4f28795b152e5b0;p=dead%2Fhtsn-import.git

Set "withSubstDTDEntities no" for now.
---

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