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 /ghc/GHCi/UI.hs | |
parent | 509445b5947ce85499672399f5e88b6196af4c5a (diff) | |
download | haskell-6c79981e646a9983e959ccbf67f6c11b86bdbc6f.tar.gz |
Introduce FinderLocations for decoupling Finder from DynFlags
Diffstat (limited to 'ghc/GHCi/UI.hs')
-rw-r--r-- | ghc/GHCi/UI.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ghc/GHCi/UI.hs b/ghc/GHCi/UI.hs index f861c9b82a..d1e49dadd3 100644 --- a/ghc/GHCi/UI.hs +++ b/ghc/GHCi/UI.hs @@ -51,6 +51,7 @@ import GHC.Driver.Session as DynFlags import GHC.Driver.Ppr hiding (printForUser) import GHC.Utils.Error hiding (traceCmd) import GHC.Driver.Monad ( modifySession ) +import GHC.Driver.Config.Finder (initFinderOpts) import GHC.Driver.Config.Parser (initParserOpts) import GHC.Driver.Config.Diagnostic import qualified GHC @@ -2035,8 +2036,9 @@ addModule files = 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 result <- liftIO $ - Finder.findImportedModule fc units home_unit dflags m (Just (fsLit "this")) + Finder.findImportedModule fc fopts units home_unit m (Just (fsLit "this")) case result of Found _ _ -> return True _ -> (liftIO $ putStrLn $ |