diff --git a/src/Yesod/ActivityPub.hs b/src/Yesod/ActivityPub.hs
index 928775f..da2658d 100644
--- a/src/Yesod/ActivityPub.hs
+++ b/src/Yesod/ActivityPub.hs
@@ -190,7 +190,7 @@ provideHtmlAndAP' host object widget = selectRep $ do
                 Just "true" -> do
                     mhl <- lookupGetParam "highlight"
                     let sky = case mhl of
-                                Nothing -> error "Highlight style not set"
+                                Nothing -> True
                                 Just "hl2" -> False
                                 Just "sky" -> True
                                 Just _ -> error "Invalid highlight style"
@@ -223,7 +223,7 @@ provideHtmlAndAP'' body widget = selectRep $ do
                 Just "true" -> do
                     mhl <- lookupGetParam "highlight"
                     let sky = case mhl of
-                                Nothing -> error "Highlight style not set"
+                                Nothing -> True
                                 Just "hl2" -> False
                                 Just "sky" -> True
                                 Just _ -> error "Invalid highlight style"