diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2021-02-04 23:20:25 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-03-26 19:00:07 -0400 |
| commit | 599efd90d54a01802b1285c0e357738e4d0bdb3a (patch) | |
| tree | 2f6468fe8caabebd85d4a84d805bf04f7de1cd77 /compiler/GHC/Tc/Gen | |
| parent | 872a9444df4d38cd5dc0fbb7a249d89596e73ea2 (diff) | |
| download | haskell-599efd90d54a01802b1285c0e357738e4d0bdb3a.tar.gz | |
Refactor FinderCache
Diffstat (limited to 'compiler/GHC/Tc/Gen')
| -rw-r--r-- | compiler/GHC/Tc/Gen/Splice.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/GHC/Tc/Gen/Splice.hs b/compiler/GHC/Tc/Gen/Splice.hs index 9c84c98ff9..c5b300b8ba 100644 --- a/compiler/GHC/Tc/Gen/Splice.hs +++ b/compiler/GHC/Tc/Gen/Splice.hs @@ -1192,7 +1192,10 @@ instance TH.Quasi TcM where qAddCorePlugin plugin = do hsc_env <- getTopEnv - r <- liftIO $ findHomeModule hsc_env (mkModuleName plugin) + 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 err = hang (text "addCorePlugin: invalid plugin module " <+> text (show plugin) |