forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Use syntax highlighting in outbox item JSON display

Browse source
This commit is contained in:
fr33domlover 2019-06-16 21:32:18 +00:00
parent 5aaf2ba8a9
commit 64a377b12f
2 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/Vervis/Handler/Inbox.hs
View file

@ -96,6 +96,7 @@ import Yesod.ActivityPub
import Yesod.Auth.Unverified import Yesod.Auth.Unverified
import Yesod.FedURI import Yesod.FedURI
import Yesod.Hashids import Yesod.Hashids
import Yesod.RenderSource
import qualified Data.Aeson.Encode.Pretty.ToEncoding as AEP import qualified Data.Aeson.Encode.Pretty.ToEncoding as AEP

2
templates/person/outbox.hamlet
View file

@ -22,6 +22,6 @@ $# <http://creativecommons.org/publicdomain/zero/1.0/>.
<div> <div>
$forall Entity _ (OutboxItem _ (PersistJSON doc) published) <- items $forall Entity _ (OutboxItem _ (PersistJSON doc) published) <- items
<div>#{showTime published} <div>#{showTime published}
<div><pre>#{AEP.encodePrettyToLazyText doc} <div>^{renderPrettyJSON doc}
^{pageNav} ^{pageNav}