diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-06-14 12:11:56 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-06-14 12:11:56 +0000 |
| commit | 59e7d08db602d243d3768ce6907e7bfe67a55e1a (patch) | |
| tree | eadab4cb7e27a9893150607ba884f566e9cadb76 /compiler/main/DriverPipeline.hs | |
| parent | 2ebfd25540026b754d6ae61831ade31af83dbb72 (diff) | |
| download | haskell-59e7d08db602d243d3768ce6907e7bfe67a55e1a.tar.gz | |
Pass dynflags down through to pragState
so we no longer need to use defaultDynFlags there
Diffstat (limited to 'compiler/main/DriverPipeline.hs')
| -rw-r--r-- | compiler/main/DriverPipeline.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index 1a8f60d4d0..7c515fe806 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -613,7 +613,7 @@ runPhase (Unlit sf) _stop hsc_env _basename _suff input_fn get_output_fn maybe_l runPhase (Cpp sf) _stop hsc_env basename suff input_fn get_output_fn maybe_loc = do let dflags0 = hsc_dflags hsc_env - src_opts <- getOptionsFromFile input_fn + src_opts <- getOptionsFromFile dflags0 input_fn (dflags,unhandled_flags) <- parseDynamicFlags dflags0 (map unLoc src_opts) checkProcessArgsResult unhandled_flags (basename <.> suff) |