diff --git a/src/Yesod/RenderSource.hs b/src/Yesod/RenderSource.hs
index 506188f..29c14f2 100644
--- a/src/Yesod/RenderSource.hs
+++ b/src/Yesod/RenderSource.hs
@@ -262,7 +262,7 @@ renderPandocMarkdown input =
         . writeHtml5 writerOptions
 
 renderPrettyJSON :: ToJSON a => a -> WidgetFor site ()
-renderPrettyJSON = renderPrettyJSON' . encode
+renderPrettyJSON = renderPrettyJSON' . encodePretty
 
 renderPrettyJSON' :: BL.ByteString -> WidgetFor site ()
 renderPrettyJSON' prettyBL =
@@ -289,4 +289,4 @@ renderPrettyJSONSkylighting' prettyBL =
     options = defaultFormatOpts { numberLines = True }
 
 renderPrettyJSONSkylighting :: ToJSON a => a -> WidgetFor site ()
-renderPrettyJSONSkylighting = renderPrettyJSONSkylighting' . encode
+renderPrettyJSONSkylighting = renderPrettyJSONSkylighting' . encodePretty