如何在Snap Web应用程序中返回未转义的响应

时间:2017-08-01 20:00:38

标签: haskell haskell-snap-framework

我想在快照应用程序中返回一些预先格式化的html。但是,当提供下面的处理程序时,

aPage :: Handler App App ()
aPage = do 
  writeText "<p>This is a page</p>"

输出结果为&lt;前&gt;标签

...<body><pre><p>This is a page</p></pre></body> ...

是否有一种简单的方法可以将逐字字符串添加到响应正文中?

1 个答案:

答案 0 :(得分:0)

你没有。

正如卡尔在我的问题评论中指出的那样,它并没有“逃脱”。我所看到的是浏览器对明文文档的再现。只需发送格式正确的文档就可以得到我的期望。

aPage :: Handler App App ()
aPage = do 
  writeText "<!DOCTYPE html><html><head></head><body><p>This is a page</p></body></html>"

在使用Blaze-html和Lucid(用于生成html的两个库)之后,我确信某种格式化正在进行中,并且认为需要某种toHtmlRaw函数。根本不是我期待的答案。