hls-eval-plugin 2.4.0.0 → 2.5.0.0

raw patch · 3 files changed

+4/−19 lines, 3 filesdep ~ghcidedep ~hls-plugin-apidep ~hls-test-utils

Dependency ranges changed: ghcide, hls-plugin-api, hls-test-utils

Files

• hls-eval-plugin.cabal +4/−4
• src/Ide/Plugin/Eval/CodeLens.hs +0/−5
• src/Ide/Plugin/Eval/Rules.hs +0/−10

@@ -1,6 +1,6 @@ cabal-version:      2.4 name:               hls-eval-plugin-version:            2.4.0.0+version:            2.5.0.0 synopsis:           Eval plugin for Haskell Language Server description:   Please see the README on GitHub at <https://github.com/haskell/haskell-language-server#readme>@@ -67,10 +67,10 @@     , ghc     , ghc-boot-th     , ghc-paths-    , ghcide                == 2.4.0.0+    , ghcide                == 2.5.0.0     , hashable     , hls-graph-    , hls-plugin-api        == 2.4.0.0+    , hls-plugin-api        == 2.5.0.0     , lens     , lsp     , lsp-types@@ -112,7 +112,7 @@     , filepath     , hls-eval-plugin     , hls-plugin-api-    , hls-test-utils   == 2.4.0.0+    , hls-test-utils   == 2.5.0.0     , lens     , lsp-types     , text

@@ -95,8 +95,6 @@ import qualified Development.IDE.GHC.Compat.Core              as SrcLoc (HasSrcSpan (getLoc),                                                                          unLoc) import           Development.IDE.Types.HscEnvEq               (HscEnvEq (hscEnv))-#if MIN_VERSION_ghc(9,2,0)-#endif import qualified GHC.LanguageExtensions.Type                  as LangExt (Extension (..))  import           Development.IDE.Core.FileStore               (setSomethingModified)@@ -664,9 +662,6 @@  parseExprMode :: Text -> (TcRnExprMode, T.Text) parseExprMode rawArg = case T.break isSpace rawArg of-#if !MIN_VERSION_ghc(9,2,0)-    ("+v", rest) -> (TM_NoInst, T.strip rest)-#endif     ("+d", rest) -> (TM_Default, T.strip rest)     _            -> (TM_Inst, rawArg) 

@@ -42,9 +42,7 @@ import           Ide.Logger         (Pretty (pretty),                                                        Recorder, WithPriority,                                                        cmapWithPrio)-#if MIN_VERSION_ghc(9,2,0) import           GHC.Parser.Annotation-#endif import           Ide.Plugin.Eval.Types  import qualified Data.ByteString                      as BS@@ -76,7 +74,6 @@     -- remove the module from the Evaluating state, so that next time it won't evaluate to True     atomicModifyIORef' var $ \fs -> (Set.delete nfp fs, ()) -#if MIN_VERSION_ghc(9,2,0) #if MIN_VERSION_ghc(9,5,0) getAnnotations :: Development.IDE.GHC.Compat.Located (HsModule GhcPs) -> [LEpaComment] getAnnotations (L _ m@(HsModule { hsmodExt = XModulePs {hsmodAnn = anns'}})) =@@ -102,13 +99,6 @@  pattern RealSrcSpanAlready :: SrcLoc.RealSrcSpan -> SrcLoc.RealSrcSpan pattern RealSrcSpanAlready x = x-#else-apiAnnComments' :: ParsedModule -> [SrcLoc.RealLocated AnnotationComment]-apiAnnComments' = apiAnnRogueComments . pm_annotations--pattern RealSrcSpanAlready :: SrcLoc.RealSrcSpan -> SrcLoc.RealSrcSpan-pattern RealSrcSpanAlready x = x-#endif  evalParsedModuleRule :: Recorder (WithPriority Log) -> Rules () evalParsedModuleRule recorder = defineEarlyCutoff (cmapWithPrio LogShake recorder) $ RuleNoDiagnostics $ \GetEvalComments nfp -> do