diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-12 15:40:07 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-12 15:40:07 +0100 |
| commit | c3a62c563fb62d4d8b94c0dc0c270724b35d4341 (patch) | |
| tree | 2cbfb6717991414b20ac7ed17e7c5ce38b940f8d /compiler/main/DriverMkDepend.hs | |
| parent | 91667cc91a4343b7855d3351afba0b077fee62c8 (diff) | |
| download | haskell-c3a62c563fb62d4d8b94c0dc0c270724b35d4341.tar.gz | |
Pass DynFlags down to mk_err_msg
Diffstat (limited to 'compiler/main/DriverMkDepend.hs')
| -rw-r--r-- | compiler/main/DriverMkDepend.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/compiler/main/DriverMkDepend.hs b/compiler/main/DriverMkDepend.hs index 1694aba9b8..5db927a952 100644 --- a/compiler/main/DriverMkDepend.hs +++ b/compiler/main/DriverMkDepend.hs @@ -240,8 +240,10 @@ findDependency hsc_env srcloc pkg imp is_boot include_pkg_deps | otherwise -> return Nothing - fail -> throwOneError $ mkPlainErrMsg srcloc $ - cannotFindModule (hsc_dflags hsc_env) imp fail + fail -> + let dflags = hsc_dflags hsc_env + in throwOneError $ mkPlainErrMsg dflags srcloc $ + cannotFindModule dflags imp fail } ----------------------------- |