From ca3c5b098d0c0a894a5fc3e37bb02e3dcab535d0 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 2 May 2010 22:24:50 +0300
Subject: [PATCH] Some more JSON outputting functions

---
 Yesod/Json.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/Yesod/Json.hs b/Yesod/Json.hs
index 47ea56ec..e300b124 100644
--- a/Yesod/Json.hs
+++ b/Yesod/Json.hs
@@ -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