diff options
Diffstat (limited to 'compiler/GHC/Driver/Pipeline.hs')
-rw-r--r-- | compiler/GHC/Driver/Pipeline.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/GHC/Driver/Pipeline.hs b/compiler/GHC/Driver/Pipeline.hs index 0dd3d0f8fa..91f8044dcd 100644 --- a/compiler/GHC/Driver/Pipeline.hs +++ b/compiler/GHC/Driver/Pipeline.hs @@ -44,6 +44,7 @@ import GHC.Unit import GHC.Unit.State import GHC.Platform.Ways import GHC.Platform.ArchOS +import GHC.Driver.Config import GHC.Parser.Header import GHC.Parser.Errors.Ppr import GHC.Driver.Phases @@ -1116,7 +1117,9 @@ runPhase (RealPhase (Hsc src_flavour)) input_fn dflags0 (hspp_buf,mod_name,imps,src_imps) <- liftIO $ do do buf <- hGetStringBuffer input_fn - eimps <- getImports dflags buf input_fn (basename <.> suff) + let imp_prelude = xopt LangExt.ImplicitPrelude dflags + popts = initParserOpts dflags + eimps <- getImports popts imp_prelude buf input_fn (basename <.> suff) case eimps of Left errs -> throwErrors (fmap pprError errs) Right (src_imps,imps,L _ mod_name) -> return |