On "See JSON" pages, display a link back to "regular HTML" version of the page

src/Yesod/ActivityPub.hs

@@ -32,6 +32,8 @@ import Data.Aeson
 import Data.Aeson.Encode.Pretty
 import Data.ByteString (ByteString)
 import Data.Foldable
+import Data.Function
+import Data.List
 import Data.List.NonEmpty (NonEmpty)
 import Data.Text (Text)
 import Network.HTTP.Client
@@ -210,6 +212,17 @@ provideHtmlAndAP' host object widget = selectRep $ do
                     if sky
                         then renderPrettyJSONSkylighting doc
                         else renderPrettyJSON doc
+                    mroute <- getCurrentRoute
+                    for_ mroute $ \ route -> do
+                        params <- reqGetParams <$> getRequest
+                        let params' =
+                                delete' "prettyjson" $
+                                    delete' "highlight" params
+                        [whamlet|
+                            <div>
+                              <a href=@?{(route, params')}>
+                                [See HTML]
+                        |]
                 _ -> do
                     widget
                     mroute <- getCurrentRoute
@@ -223,6 +236,8 @@ provideHtmlAndAP' host object widget = selectRep $ do
                               <a href=@?{(route, params')}>
                                 [See JSON]
                         |]
+    where
+    delete' t = deleteBy ((==) `on` fst) (t, "")
 
 provideHtmlAndAP''
     :: Yesod site