From 5e40ee7778758b6d17a863e247e7d35824073884 Mon Sep 17 00:00:00 2001 From: Sean D Gillespie Date: Tue, 1 Jul 2025 09:21:27 -0400 Subject: [PATCH] Fix build for GHC 9.10.2 The constructor for `TypeEqMismatch` changed at 9.10.2 (not at 9.12 as I previously thought) --- ghcide/src/Development/IDE/GHC/Compat/Error.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ghcide/src/Development/IDE/GHC/Compat/Error.hs b/ghcide/src/Development/IDE/GHC/Compat/Error.hs index 01abbf1a66..e4fb9c26b4 100644 --- a/ghcide/src/Development/IDE/GHC/Compat/Error.hs +++ b/ghcide/src/Development/IDE/GHC/Compat/Error.hs @@ -104,7 +104,7 @@ _MismatchMessage _ report = pure report -- | Focus 'teq_mismatch_expected' from 'TypeEqMismatch'. _TypeEqMismatchExpected :: Traversal' MismatchMsg Type -#if MIN_VERSION_ghc(9,12,0) +#if MIN_VERSION_ghc(9,10,2) _TypeEqMismatchExpected focus mismatch@(TypeEqMismatch _ _ _ expected _ _ _) = (\expected' -> mismatch { teq_mismatch_expected = expected' }) <$> focus expected #else @@ -115,7 +115,7 @@ _TypeEqMismatchExpected _ mismatch = pure mismatch -- | Focus 'teq_mismatch_actual' from 'TypeEqMismatch'. _TypeEqMismatchActual :: Traversal' MismatchMsg Type -#if MIN_VERSION_ghc(9,12,0) +#if MIN_VERSION_ghc(9,10,2) _TypeEqMismatchActual focus mismatch@(TypeEqMismatch _ _ _ _ actual _ _) = (\actual' -> mismatch { teq_mismatch_actual = actual' }) <$> focus actual #else