请勿用HXT替代HTML实体

如何使用HXT保留HTML实体？的withSubstHTMLEntities SystemConfig似乎并没有改变什么：请勿用HXT替代HTML实体

runX $ xshow $ readString [] "<doc> > </doc>"

和

runX $ xshow $ readString [withSubstHTMLEntities no] "<doc> > </doc>"

都产生

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

我绝对不知道在何处看。我几乎尝试了所有我能传递给readDocument或readString

感谢

来源

2013-03-13 Nekosan

您可以使用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> <tag> </doc>"。（这足以避免<tag>被解析为标签）

来源

2013-03-13 23:04:04 thoferon

请勿用HXT替代HTML实体

回答

相关问题