Add tests for more GHC errors

src/GHC/Diagnostic.hs

@@ -92,9 +92,15 @@ format diagnostic = encodeUtf8 . render $ unlines [
     unlines = foldr ($+$) empty
 
 removeGhciSpecificHints :: Diagnostic -> Diagnostic
-removeGhciSpecificHints diagnostic = diagnostic { hints = map f diagnostic.hints }
+removeGhciSpecificHints diagnostic = diagnostic { hints = map processHint diagnostic.hints }
   where
-    f :: String -> String
-    f input = case lines input of
-      [hint, "You may enable this language extension in GHCi with:", ghciHint] | "  :set -X" `isPrefixOf` ghciHint -> hint
+    isSetLanguageExtension :: String -> Bool
+    isSetLanguageExtension = isPrefixOf "  :set -X"
+
+    processHint :: String -> String
+    processHint input = case lines input of
+      [hint, "You may enable this language extension in GHCi with:", ghciHint]
+        | isSetLanguageExtension ghciHint -> hint
+      hint : "You may enable these language extensions in GHCi with:" : ghciHints
+        | all isSetLanguageExtension ghciHints -> hint
       _ -> input

test/GHC/DiagnosticSpec.hs

@@ -50,6 +50,7 @@ spec = do
     test "variable-not-in-scope"
     test "variable-not-in-scope-perhaps-use"
     test "use-BlockArguments"
+    test "use-TemplateHaskellQuotes"
     test "non-existing"
     test "parse-error"
     test "lex-error"

test/assets/use-BlockArguments/Foo.hs

@@ -1,5 +1,5 @@
 {-# LANGUAGE NoBlockArguments #-}
-module BlockArguments.Foo where
+module Foo where
 
 foo :: IO ()
 foo = id do return ()

test/assets/use-TemplateHaskellQuotes/Foo.hs

@@ -0,0 +1,2 @@
+module Foo where
+foo = [|23|]

test/assets/use-TemplateHaskellQuotes/err.json

@@ -0,0 +1 @@
+{"version":"1.0","ghcVersion":"ghc-9.10.1","span":{"file":"test/assets/use-TemplateHaskellQuotes/Foo.hs","start":{"line":2,"column":7},"end":{"line":2,"column":13}},"severity":"Error","code":62558,"message":["Syntax error on [| 23 |]","In the Template Haskell quotation [| 23 |]"],"hints":["Enable any of the following extensions: TemplateHaskell, TemplateHaskellQuotes\nYou may enable these language extensions in GHCi with:\n  :set -XTemplateHaskell\n  :set -XTemplateHaskellQuotes"]}

test/assets/use-TemplateHaskellQuotes/err.out

@@ -0,0 +1,6 @@
+test/assets/use-TemplateHaskellQuotes/Foo.hs:2:7: error: [GHC-62558]
+    • Syntax error on [| 23 |]
+    • In the Template Haskell quotation [| 23 |]
+    Suggested fix:
+      Enable any of the following extensions: TemplateHaskell, TemplateHaskellQuotes
+