Ignore error codes when testing GHC 9.4

haskell · Oct 23, 2024 · 6c9860c · 6c9860c
1 parent 73bba51
commit 6c9860c
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/hls-test-utils/src/Development/IDE/Test/Diagnostic.hs b/hls-test-utils/src/Development/IDE/Test/Diagnostic.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 module Development.IDE.Test.Diagnostic where
 
 import           Control.Lens                ((^.))
@@ -35,10 +36,14 @@ requireDiagnostic actuals expected@(severity, cursor, expectedMsg, mbExpectedCod
         && codeMatches d
 
     codeMatches d =
+#if MIN_VERSION_GLASGOW_HASKELL(9,5,0,0)
         case (mbExpectedCode, _code d) of
           (Nothing, _)                         -> True
           (Just expectedCode, Nothing)         -> False
           (Just expectedCode, Just actualCode) -> InR expectedCode == actualCode
+#else
+        True
+#endif
 
     hasTag :: Maybe DiagnosticTag -> Maybe [DiagnosticTag] -> Bool
     hasTag Nothing  _                   = True