Simon Peyton Jones pushed to branch wip/spj-reinstallable-base at Glasgow Haskell Compiler / GHC Commits: 0e86bd93 by Simon Peyton Jones at 2026-03-20T09:42:03+00:00 Wibbles - - - - - 3 changed files: - compiler/GHC/Tc/Utils/Env.hs - libraries/base/src/Data/Enum.hs - libraries/base/src/System/IO/Unsafe.hs Changes: ===================================== compiler/GHC/Tc/Utils/Env.hs ===================================== @@ -505,7 +505,7 @@ to bring the data constructor A into scope. We thus emit the following message: ************************************************************************ -} -tcLookupKnownKeyGlobal :: Unique -> TcM TyThing +tcLookupKnownKeyGlobal :: HasDebugCallStack => Unique -> TcM TyThing tcLookupKnownKeyGlobal uniq = do { rebindable_path <- goptM Opt_RebindableKnownKeyNames ; mb_rdr_env <- if rebindable_path @@ -517,7 +517,7 @@ tcLookupKnownKeyGlobal uniq Succeeded thing -> return thing Failed msg -> failWithTc (TcRnInterfaceError msg) } -tcLookupKnownKeyClass :: Unique -> TcM Class +tcLookupKnownKeyClass :: HasDebugCallStack => Unique -> TcM Class tcLookupKnownKeyClass uniq = do { thing <- tcLookupKnownKeyGlobal uniq ; case thing of @@ -525,7 +525,7 @@ tcLookupKnownKeyClass uniq -> return cls _ -> wrongThingErr WrongThingClass (AGlobal thing) (getName thing) } -tcLookupKnownKeyTyCon :: Unique -> TcM TyCon +tcLookupKnownKeyTyCon :: HasDebugCallStack => Unique -> TcM TyCon tcLookupKnownKeyTyCon uniq = do { thing <- tcLookupKnownKeyGlobal uniq ; case thing of ===================================== libraries/base/src/Data/Enum.hs ===================================== @@ -25,6 +25,7 @@ module Data.Enum ) where import GHC.Internal.Enum +import GHC.Internal.Num( Num ) -- For -frebindable-known-key-names -- | Returns a list of all values of an enum type -- @@ -51,4 +52,4 @@ import GHC.Internal.Enum -- -- @since base-4.22.0.0 enumerate :: (Enum a, Bounded a) => [a] -enumerate = [minBound .. maxBound] \ No newline at end of file +enumerate = [minBound .. maxBound] ===================================== libraries/base/src/System/IO/Unsafe.hs ===================================== @@ -28,6 +28,7 @@ import GHC.Internal.IO import GHC.Internal.IORef import GHC.Internal.Exception import GHC.Internal.Control.Exception +import GHC.Internal.Num( Num ) -- For -frebindable-known-key-names -- | A slightly faster version of `GHC.Internal.System.IO.fixIO` that may not be -- safe to use with multiple threads. The unsafety arises when used View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/0e86bd93aadad57b40a75663eb474b5c... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/0e86bd93aadad57b40a75663eb474b5c... You're receiving this email because of your account on gitlab.haskell.org.