sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-27 15:24:51 +09:00
Code Issues 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.FedURI
import Yesod.Hashids
import Yesod.RenderSource
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>
$forall Entity _ (OutboxItem _ (PersistJSON doc) published) <- items
<div>#{showTime published}
<div><pre>#{AEP.encodePrettyToLazyText doc}
<div>^{renderPrettyJSON doc}
^{pageNav}