diff --git a/patches/ghcide-2.0.0.1.patch b/patches/ghcide-2.0.0.1.patch
index 0c5903438a6986afcb9b725e1e588d750d29f7a3..b3a5f9d74f4367425c1250279cd2efcc40356eff 100644
--- a/patches/ghcide-2.0.0.1.patch
+++ b/patches/ghcide-2.0.0.1.patch
@@ -162,7 +162,7 @@ index 0f9069b..ccf29fc 100644
  #else
      stg_binds2
 diff --git a/src/Development/IDE/GHC/Compat/Core.hs b/src/Development/IDE/GHC/Compat/Core.hs
-index be4d72b..f913edf 100644
+index be4d72b..cdf82c5 100644
 --- a/src/Development/IDE/GHC/Compat/Core.hs
 +++ b/src/Development/IDE/GHC/Compat/Core.hs
 @@ -165,7 +165,9 @@ module Development.IDE.GHC.Compat.Core (
@@ -227,7 +227,23 @@ index be4d72b..f913edf 100644
  pattern AvailFL fl <- Avail.Avail (Avail.FieldGreName fl)
  #else
  -- pattern synonym that is never populated
-@@ -1101,7 +1113,11 @@ pattern GRE :: Name -> Parent -> Bool -> [ImportSpec] -> RdrName.GlobalRdrElt
+@@ -1082,10 +1094,14 @@ getLocA = GHC.getLocA
+ getLocA x = GHC.getLoc x
+ #endif
+ 
++#if MIN_VERSION_ghc(9,9,0)
++noLocA :: GHC.NoAnn an => a -> LocatedAn an a
++noLocA = GHC.noLocA
++#elif MIN_VERSION_ghc(9,2,0)
+ noLocA :: a -> LocatedAn an a
+-#if MIN_VERSION_ghc(9,2,0)
+ noLocA = GHC.noLocA
+ #else
++noLocA :: a -> LocatedAn an a
+ noLocA = GHC.noLoc
+ #endif
+ 
+@@ -1101,7 +1117,11 @@ pattern GRE :: Name -> Parent -> Bool -> [ImportSpec] -> RdrName.GlobalRdrElt
  {-# COMPLETE GRE #-}
  #if MIN_VERSION_ghc(9,2,0)
  pattern GRE{gre_name, gre_par, gre_lcl, gre_imp} <- RdrName.GRE