sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-27 16:54:53 +09:00
Code Issues Activity

Encode pretty JSON using encodePretty, highlighting doesn't do formatting!

Browse source
This commit is contained in:
fr33domlover 2019-06-29 22:38:42 +00:00
parent 685b7ec2bc
commit 183e9a7754
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Yesod/RenderSource.hs
View file

@ -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