如何在yesod中将Json转换为Html？

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模块以获取更多信息。