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/Driver/MakeFile.hs | |
| parent | 509445b5947ce85499672399f5e88b6196af4c5a (diff) | |
| download | haskell-6c79981e646a9983e959ccbf67f6c11b86bdbc6f.tar.gz | |
Introduce FinderLocations for decoupling Finder from DynFlags
Diffstat (limited to 'compiler/GHC/Driver/MakeFile.hs')
| -rw-r--r-- | compiler/GHC/Driver/MakeFile.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/GHC/Driver/MakeFile.hs b/compiler/GHC/Driver/MakeFile.hs index 8207b37c7b..5719b7dc04 100644 --- a/compiler/GHC/Driver/MakeFile.hs +++ b/compiler/GHC/Driver/MakeFile.hs @@ -16,6 +16,7 @@ where import GHC.Prelude import qualified GHC +import GHC.Driver.Config.Finder import GHC.Driver.Monad import GHC.Driver.Session import GHC.Driver.Ppr @@ -291,9 +292,10 @@ findDependency hsc_env srcloc pkg imp is_boot include_pkg_deps = do let home_unit = hsc_home_unit hsc_env let units = hsc_units hsc_env let dflags = hsc_dflags hsc_env + let fopts = initFinderOpts dflags -- Find the module; this will be fast because -- we've done it once during downsweep - r <- findImportedModule fc units home_unit dflags imp pkg + r <- findImportedModule fc fopts units home_unit imp pkg case r of Found loc _ -- Home package: just depend on the .hi or hi-boot file |