hint 0.9.0.7 → 0.9.0.8
raw patch · 4 files changed
+31/−6 lines, 4 filesdep ~ghcPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: ghc
API changes (from Hackage documentation)
Files
- CHANGELOG.md +4/−0
- hint.cabal +3/−2
- src/Hint/Context.hs +0/−2
- src/Hint/GHC.hs +24/−2
CHANGELOG.md view
@@ -1,3 +1,7 @@+### 0.9.0.8++* Support GHC 9.8+ ### 0.9.0.7 * Support GHC 9.4
hint.cabal view
@@ -1,5 +1,5 @@ name: hint-version: 0.9.0.7+version: 0.9.0.8 description: This library defines an Interpreter monad. It allows to load Haskell modules, browse them, type-check and evaluate strings with Haskell@@ -23,6 +23,7 @@ , ghc == 9.2.7 , ghc == 9.4.5 , ghc == 9.6.1+ , ghc == 9.8.1 cabal-version: >= 1.10 build-type: Simple@@ -71,7 +72,7 @@ default-language: Haskell2010 build-depends: base == 4.*, containers,- ghc >= 8.4 && < 9.7,+ ghc >= 8.4 && < 9.9, ghc-paths, ghc-boot, transformers,
src/Hint/Context.hs view
@@ -32,7 +32,6 @@ import System.FilePath import System.Directory -import Data.Maybe (maybe) import Hint.Configuration (setGhcOption) import System.IO.Temp @@ -115,7 +114,6 @@ do pm <- newPhantomModule df <- runGhc GHC.getSessionDynFlags let t = GHC.fileTarget df (pmFile pm)- m = GHC.mkModuleName (pmName pm) -- liftIO $ writeFile (pmFile pm) (mod_text $ pmName pm) --
src/Hint/GHC.hs view
@@ -47,6 +47,11 @@ ) import Control.Monad.Ghc as X (GhcT, runGhcT) +#if MIN_VERSION_ghc(9,8,0)+import GHC.Types.Error (ResolvedDiagnosticReason(..), Messages)+import GHC.Driver.Errors.Types (DriverMessage)+#endif+ #if MIN_VERSION_ghc(9,4,0) import GHC.Types.SourceError as X (SourceError, srcErrorMessages) @@ -429,10 +434,21 @@ pushLogHook :: (GHC.LogAction -> GHC.LogAction) -> Logger -> Logger modifyLogger :: GhcMonad m => (Logger -> Logger) -> m () mkLogAction :: (String -> a) -> IORef [a] -> GHC.LogAction-#if MIN_VERSION_ghc(9,6,0)+#if MIN_VERSION_ghc(9,8,0) data WarnReason = NoReason type Logger = GHC.Logger initLogger = GHC.initLogger+putLogMsg logger _df _wn sev = GHC.putLogMsg logger (GHC.logFlags logger) (GHC.MCDiagnostic sev (ResolvedDiagnosticReason GHC.ErrorWithoutFlag) Nothing)+pushLogHook = GHC.pushLogHook+modifyLogger = GHC.modifyLogger+mkLogAction f r = \lf mc src msg ->+ let renderErrMsg = GHC.renderWithContext (GHC.log_default_user_context lf)+ errorEntry = f (renderErrMsg (GHC.mkLocMessage mc src msg))+ in modifyIORef r (errorEntry :)+#elif MIN_VERSION_ghc(9,6,0)+data WarnReason = NoReason+type Logger = GHC.Logger+initLogger = GHC.initLogger putLogMsg logger _df _wn sev = GHC.putLogMsg logger (GHC.logFlags logger) (GHC.MCDiagnostic sev GHC.ErrorWithoutFlag Nothing) pushLogHook = GHC.pushLogHook modifyLogger = GHC.modifyLogger@@ -606,11 +622,17 @@ #endif -- parseDynamicFlags-parseDynamicFlags :: MonadIO m => Logger -> DynFlags -> [Located String] -> m (DynFlags, [Located String], [Warn])++#if MIN_VERSION_ghc(9,8,0)+parseDynamicFlags :: MonadIO m => Logger -> DynFlags -> [Located String] -> m (DynFlags, [Located String], Messages DriverMessage)+parseDynamicFlags = GHC.parseDynamicFlags+#else #if MIN_VERSION_ghc(9,2,0)+parseDynamicFlags :: MonadIO m => Logger -> DynFlags -> [Located String] -> m (DynFlags, [Located String], [Warn]) parseDynamicFlags = GHC.parseDynamicFlags #else parseDynamicFlags _ = GHC.parseDynamicFlags+#endif #endif pprTypeForUser :: Type -> SDoc