diff options
Diffstat (limited to 'compiler/main')
| -rw-r--r-- | compiler/main/Finder.lhs | 2 | ||||
| -rw-r--r-- | compiler/main/TidyPgm.lhs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/compiler/main/Finder.lhs b/compiler/main/Finder.lhs index 3ac3a473a3..f998e295ec 100644 --- a/compiler/main/Finder.lhs +++ b/compiler/main/Finder.lhs @@ -635,7 +635,7 @@ cantFindErr cannot_find _ dflags mod_name find_result from_exposed_pkg m = case lookupPackage pkg_map (modulePackageId m) of Just pkg_config -> exposed pkg_config - Nothing -> WARN( True, ppr m ) -- Should not happen + Nothing -> WARN( dflags, True, ppr m ) -- Should not happen False pp_exp mod = ppr (moduleName mod) diff --git a/compiler/main/TidyPgm.lhs b/compiler/main/TidyPgm.lhs index 17e2809202..2607c1047d 100644 --- a/compiler/main/TidyPgm.lhs +++ b/compiler/main/TidyPgm.lhs @@ -678,7 +678,7 @@ chooseExternalIds hsc_env mod omit_prags expose_all binds implicit_binds imp_id_ -- unfolding in the *definition*; so look up in binder_set refined_id = case lookupVarSet binder_set idocc of Just id -> id - Nothing -> WARN( True, ppr idocc ) idocc + Nothing -> WARN( dflags, True, ppr idocc ) idocc unfold_env' = extendVarEnv unfold_env idocc (name',show_unfold) referrer' | isExportedId refined_id = refined_id @@ -1058,7 +1058,7 @@ tidyTopIdInfo rhs_tidy_env name orig_rhs tidy_rhs idinfo show_unfold caf_info --------- Strictness ------------ final_sig | Just sig <- strictnessInfo idinfo - = WARN( _bottom_hidden sig, ppr name ) Just sig + = WARN( dflags, _bottom_hidden sig, ppr name ) Just sig | Just (_, sig) <- mb_bot_str = Just sig | otherwise = Nothing |