Как вернуть неэкранированный ответ в веб-приложении Snap

Я хочу вернуть некоторые предварительно отформатированные HTML в приложении оснастки. Однако, когда обработчик ниже обслуживается,

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

Вывод заключен в теги 

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

Есть ли простой способ добавить дословную строку в тело ответа?
Источник

1 ответ

Вы не

Как отметил Карл в комментарии к моему вопросу, с самого начала он не "избежал". То, что я видел, было передачей в браузере открытого текста документа. Простая отправка правильно отформатированного документа дает мне то, что я ожидал.

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 Функция была необходима. Совсем не тот ответ, который я ожидал.

Источник
Другие вопросы по тегам