[yesod] make Data.Aeson.Value writeable in a hamlet template

module Main where
import           Data.Aeson
import qualified Data.ByteString      as BS
import qualified Data.ByteString.Lazy as LBS
import           Data.Text.Encoding   (decodeUtf8)
import           Text.Blaze.Html      (Html, preEscapedToHtml)

lazyToStrictBS :: LBS.ByteString -> BS.ByteString
lazyToStrictBS x = BS.concat $ LBS.toChunks x

toJSONText :: Value -> Html
toJSONText v = preEscapedToHtml $ decodeUtf8 $ lazyToStrictBS $ encode $ v