hls-splice-plugin 2.4.0.0 → 2.5.0.0

raw patch · 2 files changed

+4/−19 lines, 2 filesdep ~ghcidedep ~hls-plugin-apidep ~hls-test-utilsnew-uploader

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

Files

• hls-splice-plugin.cabal +4/−4
• src/Ide/Plugin/Splice.hs +0/−15

@@ -1,6 +1,6 @@ cabal-version:      2.4 name:               hls-splice-plugin-version:            2.4.0.0+version:            2.5.0.0 synopsis:   HLS Plugin to expand TemplateHaskell Splices and QuasiQuotes @@ -47,8 +47,8 @@     , foldl     , ghc     , ghc-exactprint-    , ghcide                == 2.4.0.0-    , hls-plugin-api        == 2.4.0.0+    , ghcide                == 2.5.0.0+    , hls-plugin-api        == 2.5.0.0     , hls-refactor-plugin     , lens     , lsp@@ -79,6 +79,6 @@     , base     , filepath     , hls-splice-plugin-    , hls-test-utils == 2.4.0.0+    , hls-test-utils == 2.5.0.0     , text     , row-types

@@ -64,12 +64,10 @@  import           GHC.Exts -#if MIN_VERSION_ghc(9,2,0)  import           GHC.Parser.Annotation (SrcSpanAnn'(..)) import qualified GHC.Types.Error as Error -#endif  import           Ide.Plugin.Splice.Types import           Ide.Types@@ -284,13 +282,8 @@ -- `GenLocated`. In GHC >= 9.2 this will be a SrcSpanAnn', with annotations; -- earlier it will just be a plain `SrcSpan`. {-# COMPLETE AsSrcSpan #-}-#if MIN_VERSION_ghc(9,2,0) pattern AsSrcSpan :: SrcSpan -> SrcSpanAnn' a pattern AsSrcSpan locA <- SrcSpanAnn {locA}-#else-pattern AsSrcSpan :: SrcSpan -> SrcSpan-pattern AsSrcSpan loc <- loc-#endif  findSubSpansDesc :: SrcSpan -> [(LHsExpr GhcTc, a)] -> [(SrcSpan, a)] findSubSpansDesc srcSpan =@@ -414,11 +407,7 @@                                             Right y -> unRenamedE dflags y                                     _ -> pure Nothing             let (warns, errs) =-#if MIN_VERSION_ghc(9,2,0)                                 (Error.getWarningMessages msgs, Error.getErrorMessages msgs)-#else-                                msgs-#endif             pure $ (warns,) <$> maybe (throwError $ PluginInternalError $ T.pack $ showErrors errs)                                     (B.first (PluginInternalError . T.pack)) eresl @@ -467,11 +456,7 @@     TransformT m (LocatedAn l (ast GhcPs)) unRenamedE dflags expr = do     uniq <- show <$> uniqueSrcSpanT-#if MIN_VERSION_ghc(9,2,0)     expr' <--#else-    (_anns, expr') <--#endif         either (fail . showErrors) pure $         parseAST @_ @(ast GhcPs) dflags uniq $             showSDoc dflags $ ppr expr