diff options
Diffstat (limited to 'compiler/GHC/Tc/Plugin.hs')
| -rw-r--r-- | compiler/GHC/Tc/Plugin.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/compiler/GHC/Tc/Plugin.hs b/compiler/GHC/Tc/Plugin.hs index db9c3a1b81..b27168a1fc 100644 --- a/compiler/GHC/Tc/Plugin.hs +++ b/compiler/GHC/Tc/Plugin.hs @@ -10,7 +10,7 @@ module GHC.Tc.Plugin ( unsafeTcPluginTcM, -- * Finding Modules and Names - FindResult(..), + Finder.FindResult(..), findImportedModule, lookupOrig, @@ -52,13 +52,13 @@ module GHC.Tc.Plugin ( import GHC.Prelude -import qualified GHC.Tc.Utils.Monad as TcM +import qualified GHC.Tc.Utils.Monad as TcM import qualified GHC.Tc.Solver.Monad as TcS -import qualified GHC.Tc.Utils.Env as TcM +import qualified GHC.Tc.Utils.Env as TcM import qualified GHC.Tc.Utils.TcMType as TcM import qualified GHC.Tc.Instance.Family as TcM import qualified GHC.Iface.Env as IfaceEnv -import qualified GHC.Driver.Finder as Finder +import qualified GHC.Unit.Finder as Finder import GHC.Core.FamInstEnv ( FamInstEnv ) import GHC.Tc.Utils.Monad ( TcGblEnv, TcLclEnv, TcPluginM @@ -73,10 +73,11 @@ import GHC.Types.Var ( EvVar ) import GHC.Unit.Module import GHC.Types.Name +import GHC.Types.TyThing import GHC.Core.TyCon import GHC.Core.DataCon import GHC.Core.Class -import GHC.Driver.Types +import GHC.Driver.Env import GHC.Utils.Outputable import GHC.Core.Type import GHC.Core.Coercion ( BlockSubstFlag(..) ) @@ -95,7 +96,7 @@ tcPluginTrace :: String -> SDoc -> TcPluginM () tcPluginTrace a b = unsafeTcPluginTcM (traceTc a b) -findImportedModule :: ModuleName -> Maybe FastString -> TcPluginM FindResult +findImportedModule :: ModuleName -> Maybe FastString -> TcPluginM Finder.FindResult findImportedModule mod_name mb_pkg = do hsc_env <- getTopEnv tcPluginIO $ Finder.findImportedModule hsc_env mod_name mb_pkg |