diff options
| author | Fendor <power.walross@gmail.com> | 2021-07-20 15:00:49 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-07-23 21:08:42 -0400 |
| commit | 6c79981e646a9983e959ccbf67f6c11b86bdbc6f (patch) | |
| tree | 1cc2dea0845c20331a5cf68b03eb211c0319554b /compiler/GHC/Tc/Gen | |
| parent | 509445b5947ce85499672399f5e88b6196af4c5a (diff) | |
| download | haskell-6c79981e646a9983e959ccbf67f6c11b86bdbc6f.tar.gz | |
Introduce FinderLocations for decoupling Finder from DynFlags
Diffstat (limited to 'compiler/GHC/Tc/Gen')
| -rw-r--r-- | compiler/GHC/Tc/Gen/Splice.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/GHC/Tc/Gen/Splice.hs b/compiler/GHC/Tc/Gen/Splice.hs index bcb77326e2..fcd1474afa 100644 --- a/compiler/GHC/Tc/Gen/Splice.hs +++ b/compiler/GHC/Tc/Gen/Splice.hs @@ -39,6 +39,7 @@ import GHC.Driver.Session import GHC.Driver.Env import GHC.Driver.Hooks import GHC.Driver.Config.Diagnostic +import GHC.Driver.Config.Finder import GHC.Hs @@ -1264,7 +1265,8 @@ instance TH.Quasi TcM where let fc = hsc_FC hsc_env let home_unit = hsc_home_unit hsc_env let dflags = hsc_dflags hsc_env - r <- liftIO $ findHomeModule fc home_unit dflags (mkModuleName plugin) + let fopts = initFinderOpts dflags + r <- liftIO $ findHomeModule fc fopts home_unit (mkModuleName plugin) let err = hang (text "addCorePlugin: invalid plugin module " <+> text (show plugin) |