Don't mention ErrorCallWithLocation in later GHC

Summary: Test Plan:
ndmitchell · Dec 30, 2024 · fc82eee · fc82eee
1 parent eb37037
commit fc82eee
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/General/Extra.hs b/src/General/Extra.hs
@@ -1,6 +1,5 @@
-{-# LANGUAGE ScopedTypeVariables, ConstraintKinds, GeneralizedNewtypeDeriving, ViewPatterns #-}
-{-# OPTIONS_GHC -Wno-x-partial -Wno-unrecognised-warning-flags -Wno-deprecations #-}
--- ErrorCallWithLocation is deprecated in GHC 9.12, need to shift away from it sooner or later
+{-# LANGUAGE CPP, ScopedTypeVariables, ConstraintKinds, GeneralizedNewtypeDeriving, ViewPatterns #-}
+{-# OPTIONS_GHC -Wno-x-partial -Wno-unrecognised-warning-flags #-}
 
 module General.Extra(
     getProcessorCount,
@@ -288,7 +287,9 @@ parseCallStack = reverse . map trimStart . drop1 . lines
 
 callStackFull = parseCallStack $ prettyCallStack $ popCallStack callStack
 
+#if __GLASGOW_HASKELL__ < 912
 callStackFromException (fromException -> Just (ErrorCallWithLocation msg loc)) = (parseCallStack loc, toException $ ErrorCall msg)
+#endif
 callStackFromException e = ([], e)