diff options
Diffstat (limited to 'compiler/GHC/Iface/Env.hs')
-rw-r--r-- | compiler/GHC/Iface/Env.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/compiler/GHC/Iface/Env.hs b/compiler/GHC/Iface/Env.hs index 9edc0edd32..4370f472b8 100644 --- a/compiler/GHC/Iface/Env.hs +++ b/compiler/GHC/Iface/Env.hs @@ -47,6 +47,7 @@ import GHC.Types.SrcLoc import GHC.Utils.Outputable import GHC.Utils.Error import GHC.Utils.Logger +import GHC.Utils.Misc (HasCallStack) import Data.List ( partition ) import Control.Monad @@ -61,7 +62,7 @@ import Control.Monad See Also: Note [The Name Cache] in GHC.Types.Name.Cache -} -newGlobalBinder :: Module -> OccName -> SrcSpan -> TcRnIf a b Name +newGlobalBinder :: HasCallStack => Module -> OccName -> SrcSpan -> TcRnIf a b Name -- Used for source code and interface files, to make the -- Name for a thing, given its Module and OccName -- See Note [The Name Cache] in GHC.Types.Name.Cache @@ -85,7 +86,8 @@ newInteractiveBinder hsc_env occ loc = do allocateGlobalBinder (hsc_NC hsc_env) mod occ loc allocateGlobalBinder - :: NameCache + :: HasCallStack + => NameCache -> Module -> OccName -> SrcSpan -> IO Name -- See Note [The Name Cache] in GHC.Types.Name.Cache |