pinned-warnings 0.1.2.0 → 0.1.3.0

raw patch · 4 files changed

+9/−58 lines, 4 filesdep ~ghcdep ~timePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: ghc, time

API changes (from Hackage documentation)

Files

• CHANGELOG.md +4/−0
• pinned-warnings.cabal +4/−4
• src/Internal/GhcFacade.hs +0/−32
• src/PinnedWarnings.hs +1/−22

@@ -1,5 +1,9 @@ # Revision history for pinned-warnings +## 0.1.3.0+* Support GHC 9.12.x+* Drop support for GHC 9.4+ ## 0.1.2.0 * Support GHC 9.10.x * Drop support for GHC 9.2

@@ -4,7 +4,7 @@ -- http://haskell.org/cabal/users-guide/  name:                pinned-warnings-version:             0.1.2.0+version:             0.1.3.0 synopsis: Preserve warnings in a GHCi session description: Please see the README on GitHub at <https://github.com/aaronallen8455/pinned-warnings#readme> homepage:       https://github.com/aaronallen8455/pinned-warnings#readme@@ -19,7 +19,7 @@ extra-source-files:   README.md   CHANGELOG.md-tested-with: GHC ==9.4.2 || ==9.6.1 || ==9.8.1 || ==9.10.1+tested-with: GHC ==9.6.1 || ==9.8.1 || ==9.10.1 || ==9.12.1  library   exposed-modules:     PinnedWarnings@@ -28,12 +28,12 @@                        Internal.GhcFacade                        Internal.Types -  build-depends:       ghc              >= 9.4 && < 9.11,+  build-depends:       ghc              >= 9.6 && < 9.13,                        base             >= 4.16.0 && < 5,                        bytestring       >= 0.11.3 && < 0.13,                        containers       >= 0.6.5 && < 0.8,                        directory        >= 1.3.6 && < 1.4,-                       time             >= 1.11.1 && < 1.13,+                       time             >= 1.11.1 && < 2,                        transformers     >= 0.5.6 && < 0.7   hs-source-dirs:      src   default-language:    Haskell2010

@@ -2,11 +2,9 @@ {-# LANGUAGE PatternSynonyms #-} module Internal.GhcFacade   ( module X-  , TcPluginResult'   , pattern CDictCan'   ) where -#if MIN_VERSION_ghc(9,6,0) import GHC as X hiding (FunDep) import GHC.Core.Class as X import GHC.Core.Make as X@@ -27,36 +25,6 @@ import GHC.Utils.Logger as X import GHC.Utils.Outputable as X import GHC.Driver.Config.Diagnostic as X--#elif MIN_VERSION_ghc(9,4,0)-import GHC as X hiding (FunDep)-import GHC.Core.Class as X-import GHC.Core.Make as X-import GHC.Data.Bag as X-import GHC.Data.FastString as X-import GHC.Data.IOEnv as X-import GHC.Driver.Plugins as X hiding (TcPlugin)-import GHC.Driver.Env.Types as X-import GHC.Tc.Errors.Types as X-import GHC.Tc.Plugin as X-import GHC.Tc.Types as X hiding (DefaultingPlugin)-import GHC.Tc.Types.Constraint as X-import GHC.Tc.Types.Evidence as X-import GHC.Types.Error as X-import GHC.Types.Name.Occurrence as X-import GHC.Types.SrcLoc as X-import GHC.Utils.Error as X-import GHC.Utils.Logger as X-import GHC.Utils.Outputable as X-import GHC.Driver.Config.Diagnostic as X--#endif--#if MIN_VERSION_ghc(9,4,0)-type TcPluginResult' = X.TcPluginSolveResult-#else-type TcPluginResult' = X.TcPluginResult-#endif  pattern CDictCan'   :: CtEvidence

@@ -50,9 +50,7 @@     { Ghc.tcPluginInit  = initTcPlugin     , Ghc.tcPluginSolve = \pluginState _ _ -> checkWanteds pluginState     , Ghc.tcPluginStop  = const $ pure ()-#if MIN_VERSION_ghc(9,4,0)     , Ghc.tcPluginRewrite = mempty-#endif     }  data PluginState =@@ -76,11 +74,7 @@ lookupClass className = do   result <- Ghc.findImportedModule               (Ghc.mkModuleName "ShowWarnings")-#if MIN_VERSION_ghc(9,4,0)               Ghc.NoPkgQual-#else-              (Just "pinned-warnings")-#endif    case result of     Ghc.Found _ mod' -> do@@ -93,7 +87,7 @@ -- warnings into GHC. checkWanteds :: PluginState              -> [Ghc.Ct]-             -> Ghc.TcPluginM Ghc.TcPluginResult'+             -> Ghc.TcPluginM Ghc.TcPluginSolveResult checkWanteds pluginState     = fmap (flip Ghc.TcPluginOk [] . catMaybes)     . traverse go@@ -141,15 +135,9 @@              <$> Ghc.tcPluginIO (readMVar globalState)    Ghc.tcPluginIO . atomicModifyIORef' errsRef-#if MIN_VERSION_ghc(9,6,0)     $ \messages ->         (Ghc.mkMessages ((fmap . fmap) Ghc.mkTcRnUnknownMessage pinnedWarns)           `Ghc.unionMessages` messages, ())-#elif MIN_VERSION_ghc(9,4,0)-    $ \messages ->-        (Ghc.mkMessages ((fmap . fmap) Ghc.TcRnUnknownMessage pinnedWarns)-          `Ghc.unionMessages` messages, ())-#endif  -- | Remove warnings for modules that no longer exist pruneDeleted :: IO ()@@ -168,13 +156,8 @@ -- This occurs before any new warnings are captured for the module. resetPinnedWarnsForMod   :: Ghc.ModSummary-#if MIN_VERSION_ghc(9,4,0)   -> Ghc.ParsedResult   -> Ghc.Hsc Ghc.ParsedResult-#else-  -> Ghc.HsParsedModule-  -> Ghc.Hsc Ghc.HsParsedModule-#endif resetPinnedWarnsForMod modSummary parsedModule = do   let modFile = fromString $ Ghc.ms_hspp_file modSummary @@ -193,11 +176,7 @@     warningsHook :: Ghc.LogAction -> Ghc.LogAction     warningsHook logAction dynFlags messageClass srcSpan sdoc = do       case messageClass of-#if MIN_VERSION_ghc(9,6,0)         Ghc.MCDiagnostic Ghc.SevWarning _ _-#else-        Ghc.MCDiagnostic Ghc.SevWarning _-#endif           | Ghc.RealSrcLoc start _ <- Ghc.srcSpanStart srcSpan           , Ghc.RealSrcLoc end _ <- Ghc.srcSpanEnd srcSpan           , Just modFile <- Ghc.srcSpanFileName_maybe srcSpan