Как конвертировать JSON в HTML в Yesod?

Question

Есть ли способ в yesod-0.9.3 преобразовать Json в Html, чтобы включить его в тег <script/>?

Используя Yesod.Json и Data.Aeson, я могу получить значениетипа Json, который я хочу использовать в качестве значения переменной, введенной в теге <script>, то есть не для возврата RepJson, а для включения его как части RepHtml.

Answer 1

Использование полных имен ...

let txtVal = Data.Text.Lazy.Encoding.decodeUtf8 $ Data.Aeson.encode jsonVal

затем внутри вашей деревни:

<script>
  var v = #{txtVal}

Обратите внимание, что это немного опасно, так как не проверяет, что кодировка прошла успешно. Посмотрите на модуль Data.Text.Encoding для получения дополнительной информации.