From 6c1e96b2a155336038c010ebd4f28795b152e5b0 Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Tue, 21 Jan 2014 02:16:12 -0500
Subject: [PATCH] Set "withSubstDTDEntities no" for now.

---
 src/Xml.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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
-- 
2.44.2