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/Plugins.hs | |
| parent | ecc9aedc1f199a1a7ad8ab3babcc080f414d0978 (diff) | |
| download | haskell-19606c4208db191165285b79ebc1efe7fb7f4ae4.tar.gz | |
Use lookupNameCache instead of lookupOrigIO
Diffstat (limited to 'compiler/GHC/Plugins.hs')
| -rw-r--r-- | compiler/GHC/Plugins.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/Plugins.hs b/compiler/GHC/Plugins.hs index 9c384317d2..097feefee8 100644 --- a/compiler/GHC/Plugins.hs +++ b/compiler/GHC/Plugins.hs @@ -135,7 +135,7 @@ import GHC.Types.Unique ( Unique, Uniquable(..) ) import GHC.Data.FastString import Data.Maybe -import GHC.Iface.Env ( lookupOrigIO ) +import GHC.Iface.Env ( lookupNameCache ) import GHC.Prelude import GHC.Utils.Monad ( mapMaybeM ) import GHC.ThToHs ( thRdrNameGuesses ) @@ -182,6 +182,6 @@ thNameToGhcName th_name | Just n <- isExact_maybe rdr_name -- This happens in derived code = return $ if isExternalName n then Just n else Nothing | Just (rdr_mod, rdr_occ) <- isOrig_maybe rdr_name - = do { hsc_env <- getHscEnv - ; Just <$> liftIO (lookupOrigIO hsc_env rdr_mod rdr_occ) } + = do { hsc_env <- hsc_NC <$> getHscEnv + ; Just <$> liftIO (lookupNameCache hsc_env rdr_mod rdr_occ) } | otherwise = return Nothing |