Use syntax highlighting in outbox item JSON display

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
 

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}