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/Pipeline | |
parent | 509445b5947ce85499672399f5e88b6196af4c5a (diff) | |
download | haskell-6c79981e646a9983e959ccbf67f6c11b86bdbc6f.tar.gz |
Introduce FinderLocations for decoupling Finder from DynFlags
Diffstat (limited to 'compiler/GHC/Driver/Pipeline')
-rw-r--r-- | compiler/GHC/Driver/Pipeline/Monad.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/GHC/Driver/Pipeline/Monad.hs b/compiler/GHC/Driver/Pipeline/Monad.hs index a760bb6022..f9067576ae 100644 --- a/compiler/GHC/Driver/Pipeline/Monad.hs +++ b/compiler/GHC/Driver/Pipeline/Monad.hs @@ -14,6 +14,7 @@ import GHC.Prelude import Control.Monad.IO.Class import qualified Data.Kind as K import GHC.Driver.Phases +import GHC.Driver.Config.Finder import GHC.Utils.TmpFs import GHC.Driver.Session import GHC.Types.SourceFile @@ -42,7 +43,7 @@ getLocation :: PipeEnv -> DynFlags -> HscSource -> ModuleName -> IO ModLocation getLocation pipe_env dflags src_flavour mod_name = do let PipeEnv{ src_basename=basename, src_suffix=suff } = pipe_env - location1 <- mkHomeModLocation2 dflags mod_name basename suff + location1 <- mkHomeModLocation2 fopts mod_name basename suff -- Boot-ify it if necessary let location2 @@ -69,6 +70,8 @@ getLocation pipe_env dflags src_flavour mod_name = do = location3 { ml_obj_file = ofile } | otherwise = location3 return location4 + where + fopts = initFinderOpts dflags data PipelineOutput = Temporary TempFileLifetime |