forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Highlight JSON with Skylighting by default, Highligher2 isn't working on it

Browse source
This commit is contained in:
fr33domlover 2019-06-29 23:15:41 +00:00
parent 90cb4fcd88
commit f7b7a417eb
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/ActivityPub.hs
View file

@ -203,7 +203,7 @@ provideHtmlAndAP' host object widget = selectRep $ do
for_ mroute $ \ route -> do for_ mroute $ \ route -> do
params <- reqGetParams <$> getRequest params <- reqGetParams <$> getRequest
let pj = ("prettyjson", "true") let pj = ("prettyjson", "true")
hl = ("highlight", "hl2") hl = ("highlight", "sky")
params' = pj : hl : params params' = pj : hl : params
[whamlet| [whamlet|
<div> <div>
@ -236,7 +236,7 @@ provideHtmlAndAP'' body widget = selectRep $ do
for_ mroute $ \ route -> do for_ mroute $ \ route -> do
params <- reqGetParams <$> getRequest params <- reqGetParams <$> getRequest
let pj = ("prettyjson", "true") let pj = ("prettyjson", "true")
hl = ("highlight", "hl2") hl = ("highlight", "sky")
params' = pj : hl : params params' = pj : hl : params
[whamlet| [whamlet|
<div> <div>