Refactor: move pragma to compat module

Author: guibou

ghcide/src/Development/IDE/Core/Compile.hs

@@ -881,12 +881,7 @@ parseFileContents env customPreprocessor filename ms = do
      PFailedWithErrorMessages msgs -> throwE $ diagFromErrMsgs "parser" dflags $ msgs dflags
      POk pst rdr_module ->
          let
-#if MIN_VERSION_ghc(9,2,1)
-             -- TODO: we need to export the annotations here 
-             hpm_annotations = ()
-#else
              hpm_annotations = mkApiAnns pst
-#endif
              (warns, errs) = getMessages' pst dflags
          in
            do

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

@@ -41,6 +41,8 @@ module Development.IDE.GHC.Compat.Parser (
 #if !MIN_VERSION_ghc(9,2,0)
     Anno.AnnotationComment(..),
 #endif
+    pattern EpaLineComment,
+    pattern EpaBlockComment
     ) where
 
 #if MIN_VERSION_ghc(9,0,0)
@@ -163,3 +165,8 @@ mkApiAnns pst =
                   :annotations_comments pst))
 #endif
 #endif
+
+#if !MIN_VERSION_ghc(9,2,0)
+pattern EpaLineComment a = Anno.AnnLineComment a
+pattern EpaBlockComment a = Anno.AnnBlockComment a
+#endif

plugins/hls-eval-plugin/src/Ide/Plugin/Eval/Rules.hs

@@ -104,21 +104,12 @@ evalParsedModuleRule = defineEarlyCutoff $ RuleNoDiagnostics $ \GetEvalComments
 
                         -- since Haddock parsing is unset explicitly in 'getParsedModuleWithComments',
                         -- we can concentrate on these two
-#if MIN_VERSION_ghc(9,2,0)
                         case bdy of
                             EpaLineComment cmt ->
                                 mempty { lineComments = Map.singleton curRan (RawLineComment cmt) }
                             EpaBlockComment cmt ->
                                 mempty { blockComments = Map.singleton curRan $ RawBlockComment cmt }
                             _ -> mempty
-#else
-                        case bdy of
-                            AnnLineComment cmt ->
-                                mempty { lineComments = Map.singleton curRan (RawLineComment cmt) }
-                            AnnBlockComment cmt ->
-                                mempty { blockComments = Map.singleton curRan $ RawBlockComment cmt }
-                            _ -> mempty
-#endif
                 _ -> mempty
             )
             $ apiAnnComments' pm