From: Michael Orlitzky 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