diff options
| author | simonpj@microsoft.com <unknown> | 2009-12-18 16:35:49 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-12-18 16:35:49 +0000 |
| commit | 3545603ca61d81093151307477bdecb7910cb1b7 (patch) | |
| tree | f3194deeeb979556d2c58b75184aaf6dfe330f04 | |
| parent | 8f567db9b9b8d48c3efef7f3c229e5b7cbf3bfe6 (diff) | |
| download | haskell-3545603ca61d81093151307477bdecb7910cb1b7.tar.gz | |
Make warning printing a bit less noisy
Use -dppr-debug to make it noisy again
| -rw-r--r-- | compiler/coreSyn/CoreSubst.lhs | 3 | ||||
| -rw-r--r-- | compiler/utils/Outputable.lhs | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/compiler/coreSyn/CoreSubst.lhs b/compiler/coreSyn/CoreSubst.lhs index 8ca99fa18a..216b6364a4 100644 --- a/compiler/coreSyn/CoreSubst.lhs +++ b/compiler/coreSyn/CoreSubst.lhs @@ -534,7 +534,8 @@ substUnfoldingSource (Subst in_scope ids _) (InlineWrapper wkr) = case wkr_expr of Var w1 -> InlineWrapper w1 _other -> WARN( True, text "Interesting! CoreSubst.substWorker1:" <+> ppr wkr - <+> equals <+> ppr wkr_expr ) -- Note [Worker inlining] + <+> ifPprDebug (equals <+> ppr wkr_expr) ) + -- Note [Worker inlining] InlineRule -- It's not a wrapper any more, but still inline it! | Just w1 <- lookupInScope in_scope wkr = InlineWrapper w1 diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index fd50fb510d..84e8b9d1d4 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -790,7 +790,7 @@ warnPprTrace :: Bool -> String -> Int -> SDoc -> a -> a warnPprTrace _ _file _line _msg x | opt_NoDebugOutput = x warnPprTrace False _file _line _msg x = x warnPprTrace True file line msg x - = trace (show (doc PprDebug)) x + = trace (show (doc defaultDumpStyle)) x where doc = sep [hsep [text "WARNING: file", text file, text "line", int line], msg] |