Fix compile on 8.10

Author: wz1000

ghcide/src/Development/IDE/GHC/Compat/Core.hs

@@ -963,7 +963,7 @@ isSubspanOfA :: GHC.LocatedAn la a -> GHC.LocatedAn lb b -> Bool
 isSubspanOfA a b = SrcLoc.isSubspanOf (GHC.getLocA a) (GHC.getLocA b)
 #else
 isSubspanOfA :: Located a -> Located b -> Bool
-isSubspanOfA = isSubspanOf
+isSubspanOfA a b = SrcLoc.isSubspanOf (GHC.getLoc a) (GHC.getLoc b)
 #endif
 
 #if MIN_VERSION_ghc(9,2,0)
@@ -981,6 +981,7 @@ locA = id
 #if MIN_VERSION_ghc(9,2,0)
 getLocA = GHC.getLocA
 #else
+getLocA :: HasSrcSpan a => a -> SrcSpan
 getLocA = GHC.getLoc
 #endif
 

ghcide/src/Development/IDE/GHC/ExactPrint.hs

@@ -510,7 +510,7 @@ annotate :: (ASTElement l ast, Outputable l)
 #if MIN_VERSION_ghc(9,2,0)
     => DynFlags -> Bool -> LocatedAn l ast -> TransformT (Either String) (LocatedAn l ast)
 #else
-    => DynFlags -> Bool -> LocatedAn l ast -> TransformT (Either String) (_, LocatedAn l ast)
+    => DynFlags -> Bool -> LocatedAn l ast -> TransformT (Either String) (Anns, LocatedAn l ast)
 #endif
 annotate dflags needs_space ast = do
     uniq <- show <$> uniqueSrcSpanT
@@ -601,5 +601,5 @@ eqSrcSpanA :: SrcAnn la -> SrcAnn b -> Bool
 eqSrcSpanA l r = leftmost_smallest (locA l) (locA r) == EQ
 #else
 eqSrcSpanA :: SrcSpan -> SrcSpan -> Bool
-eqSrcSpan l r = leftmost_smallest l r == EQ
+eqSrcSpanA l r = leftmost_smallest l r == EQ
 #endif

ghcide/src/Development/IDE/Plugin/CodeAction/ExactPrint.hs

@@ -173,7 +173,7 @@ appendConstraint constraintT = go
         ]
     return $ L lTop $ HsQualTy noExtField context (L l other)
 
-liftParseAST :: ASTElement ast => DynFlags -> String -> TransformT (Either String) (Located ast)
+liftParseAST :: forall ast l. ASTElement l ast => DynFlags -> String -> TransformT (Either String) (Located ast)
 liftParseAST df s = case parseAST df "" s of
   Right (anns, x) -> modifyAnnsT (anns <>) $> x
   Left _          -> lift $ Left $ "No parse: " <> s