diff options
| author | Brandon Chinn <brandonchinn178@gmail.com> | 2022-06-16 13:30:47 -0700 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-06-22 08:23:28 -0400 |
| commit | 19606c4208db191165285b79ebc1efe7fb7f4ae4 (patch) | |
| tree | b664c74cdefd9ebd401ba0c90c9cb9ddfe744204 /compiler/GHC/Iface | |
| parent | ecc9aedc1f199a1a7ad8ab3babcc080f414d0978 (diff) | |
| download | haskell-19606c4208db191165285b79ebc1efe7fb7f4ae4.tar.gz | |
Use lookupNameCache instead of lookupOrigIO
Diffstat (limited to 'compiler/GHC/Iface')
| -rw-r--r-- | compiler/GHC/Iface/Env.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/compiler/GHC/Iface/Env.hs b/compiler/GHC/Iface/Env.hs index 9edc0edd32..eeef41ecc1 100644 --- a/compiler/GHC/Iface/Env.hs +++ b/compiler/GHC/Iface/Env.hs @@ -6,7 +6,7 @@ module GHC.Iface.Env ( newGlobalBinder, newInteractiveBinder, externaliseName, lookupIfaceTop, - lookupOrig, lookupOrigIO, lookupOrigNameCache, + lookupOrig, lookupNameCache, lookupOrigNameCache, newIfaceName, newIfaceNames, extendIfaceIdEnv, extendIfaceTyVarEnv, tcIfaceLclId, tcIfaceTyVar, lookupIfaceVar, @@ -146,10 +146,6 @@ lookupOrig mod occ = do traceIf (text "lookup_orig" <+> ppr mod <+> ppr occ) liftIO $ lookupNameCache (hsc_NC hsc_env) mod occ -lookupOrigIO :: HscEnv -> Module -> OccName -> IO Name -lookupOrigIO hsc_env mod occ - = lookupNameCache (hsc_NC hsc_env) mod occ - lookupNameCache :: NameCache -> Module -> OccName -> IO Name -- Lookup up the (Module,OccName) in the NameCache -- If you find it, return it; if not, allocate a fresh original name and extend |