From 64a377b12f2f657450b4980fbe03aded6597d17b Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Sun, 16 Jun 2019 21:32:18 +0000
Subject: [PATCH] Use syntax highlighting in outbox item JSON display

---
 src/Vervis/Handler/Inbox.hs    | 1 +
 templates/person/outbox.hamlet | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Vervis/Handler/Inbox.hs b/src/Vervis/Handler/Inbox.hs
index 34c172a..c72335d 100644
--- a/src/Vervis/Handler/Inbox.hs
+++ b/src/Vervis/Handler/Inbox.hs
@@ -96,6 +96,7 @@ import Yesod.ActivityPub
 import Yesod.Auth.Unverified
 import Yesod.FedURI
 import Yesod.Hashids
+import Yesod.RenderSource
 
 import qualified Data.Aeson.Encode.Pretty.ToEncoding as AEP
 
diff --git a/templates/person/outbox.hamlet b/templates/person/outbox.hamlet
index d9a4fa3..8818a6a 100644
--- a/templates/person/outbox.hamlet
+++ b/templates/person/outbox.hamlet
@@ -22,6 +22,6 @@ $# <http://creativecommons.org/publicdomain/zero/1.0/>.
 <div>
   $forall Entity _ (OutboxItem _ (PersistJSON doc) published) <- items
     <div>#{showTime published}
-    <div><pre>#{AEP.encodePrettyToLazyText doc}
+    <div>^{renderPrettyJSON doc}
 
 ^{pageNav}