Update ghcide for ghc@7a08a025

patches/ghcide-2.6.0.0.patch

@@ -377,3 +377,27 @@ index c9c3de1..ad5f7be 100644
      get_flds_gadt (RecConGADT flds _) = get_flds (reLoc flds)
  #else
      get_flds_gadt (RecConGADT flds) = get_flds (reLoc flds)
+diff --git a/src/Development/IDE/Plugin/TypeLenses.hs b/src/Development/IDE/Plugin/TypeLenses.hs
+index 512477c..f0d4f61 100644
+--- a/src/Development/IDE/Plugin/TypeLenses.hs
++++ b/src/Development/IDE/Plugin/TypeLenses.hs
+@@ -1,6 +1,7 @@
+ {-# LANGUAGE DeriveAnyClass   #-}
+ {-# LANGUAGE OverloadedLabels #-}
+ {-# LANGUAGE TypeFamilies     #-}
++{-# LANGUAGE CPP              #-}
+ 
+ -- | An HLS plugin to provide code lenses for type signatures
+ module Development.IDE.Plugin.TypeLenses (
+@@ -319,7 +320,11 @@ gblBindingType (Just hsc) (Just gblEnv) = do
+         let name = idName identifier
+         hasSig name $ do
+           env <- tcInitTidyEnv
++#if MIN_VERSION_ghc(9,11,0)
++          let ty = tidyOpenType env (idType identifier)
++#else
+           let (_, ty) = tidyOpenType env (idType identifier)
++#endif
+           pure $ GlobalBindingTypeSig name (printName name <> " :: " <> showDoc (pprSigmaType ty)) (name `elemNameSet` exports)
+       patToSig p = do
+         let name = patSynName p