xml - 不要用 HXT 替换 HTML 实体

Question

如何使用 HXT 保留 HTML 实体？withSubstHTMLEntities SystemConfig 似乎没有改变任何东西:

runX $ xshow $ readString [] "<doc><p> &gt; </p></doc>"

和

runX $ xshow $ readString [withSubstHTMLEntities no] "<doc><p> &gt; </p></doc>"

都生产

["</ source=\"\"<doc><p> &gt; </p></doc>\"\" transfer-URI=\"string:\" transfer-Message=\"OK\" transfer-Status=\"200\"><doc><p> > </p></doc><//>"]

我完全不知道去哪里找。我几乎尝试了所有其他可以传递给 readDocument 的选项或 readString

谢谢

Answer 1

您可以使用 writeDocumentToString来自 Text.XML.HXT.Arrow.WriteDocument .签名是:

writeDocumentToString :: ArrowXml a => SysConfigList -> a XmlTree String

例如，

f :: IO String
f = do
  let arr = readString [] "<doc><p> &lt;tag&gt; </p></doc>" >>> writeDocumentToString []
  results <- runX arr
  return . head $ results

f将返回 IO "<doc><p> &lt;tag> </p></doc>" . (这足以避免 <tag> 被解析为标签)