fix: Fix build for GHC 9.10, 9.12

Author: sgillespie

plugins/hls-change-type-signature-plugin/src/Ide/Plugin/ChangeTypeSignature.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE LambdaCase   #-}
 {-# LANGUAGE ViewPatterns #-}
 -- | An HLS plugin to provide code actions to change type signatures
@@ -169,7 +170,11 @@ findSolverReport (TcRnMessageWithInfo _ (TcRnMessageDetailed errInfo msg)) =
     case findSolverReport msg of
         Just (mismatch, _) -> Just (mismatch, Just errInfo)
         _ -> Nothing
+#if MIN_VERSION_ghc(9,10,0)
+findSolverReport (TcRnSolverReport (SolverReportWithCtxt _ mismatch) _) =
+#else
 findSolverReport (TcRnSolverReport (SolverReportWithCtxt _ mismatch) _ _) =
+#endif
     Just (mismatch, Nothing)
 findSolverReport _ = Nothing
 
@@ -181,7 +186,11 @@ findMismatchMessage _ = Nothing
 
 -- TODO: Make this a prism?
 findTypeEqMismatch :: MismatchMsg -> Maybe (Type, Type)
+#if MIN_VERSION_ghc(9,12,0)
+findTypeEqMismatch (TypeEqMismatch _ _ _ expected actual _ _) =
+#else
 findTypeEqMismatch (TypeEqMismatch _ _ _ _ expected actual _ _) =
+#endif
     Just (expected, actual)
 findTypeEqMismatch _ = Nothing