From f7b7a417ebfdd3877d42a512b9839f368ae2c25f Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Sat, 29 Jun 2019 23:15:41 +0000
Subject: [PATCH] Highlight JSON with Skylighting by default, Highligher2 isn't
 working on it

---
 src/Yesod/ActivityPub.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Yesod/ActivityPub.hs b/src/Yesod/ActivityPub.hs
index 9f2f270..928775f 100644
--- a/src/Yesod/ActivityPub.hs
+++ b/src/Yesod/ActivityPub.hs
@@ -203,7 +203,7 @@ provideHtmlAndAP' host object widget = selectRep $ do
                     for_ mroute $ \ route -> do
                         params <- reqGetParams <$> getRequest
                         let pj = ("prettyjson", "true")
-                            hl = ("highlight", "hl2")
+                            hl = ("highlight", "sky")
                             params' = pj : hl : params
                         [whamlet|
                             <div>
@@ -236,7 +236,7 @@ provideHtmlAndAP'' body widget = selectRep $ do
                     for_ mroute $ \ route -> do
                         params <- reqGetParams <$> getRequest
                         let pj = ("prettyjson", "true")
-                            hl = ("highlight", "hl2")
+                            hl = ("highlight", "sky")
                             params' = pj : hl : params
                         [whamlet|
                             <div>