haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Some more JSON outputting functions

Browse Source
This commit is contained in:
Michael Snoyman 2010-05-02 22:24:50 +03:00
parent ace4238915
commit ca3c5b098d
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Yesod/Json.hs
View File

@ -5,6 +5,8 @@ module Yesod.Json
( -- * Monad
Json
, jsonToContent
, jsonToRepJson
, htmlContentToText -- FIXME put elsewhere?
-- * Generate Json output
, jsonScalar
, jsonList
@ -50,6 +52,10 @@ newtype Json url a = Json { unJson :: Hamlet url IO a }
jsonToContent :: Json (Routes master) () -> GHandler sub master Content
jsonToContent = hamletToContent . unJson
-- | Wraps the 'Content' generated by 'jsonToContent' in a 'RepJson'.
jsonToRepJson :: Json (Routes master) () -> GHandler sub master RepJson
jsonToRepJson = fmap RepJson . jsonToContent
htmlContentToText :: HtmlContent -> Text
htmlContentToText (Encoded t) = t
htmlContentToText (Unencoded t) = encodeHtml t