diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2014-04-22 17:17:31 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2014-04-24 08:43:24 +0100 |
| commit | 134b722349b83c746f8f52f2dbd99b89d23b644c (patch) | |
| tree | a40994f61ccea48d706088a7158daf1dc104cf90 /compiler/stranal | |
| parent | 68a1e679f0b97db99c552c3dbf69e651291826fa (diff) | |
| download | haskell-134b722349b83c746f8f52f2dbd99b89d23b644c.tar.gz | |
Be less verbose when printing Names when we don't know what's in scope
Previously we always printed qualified names, but that makes a lot of debug or
warning output very verbose. So now we only print qualified names with -dppr-debug.
Civilised output (from pukka error messages, with the environment available) is
unaffected
Diffstat (limited to 'compiler/stranal')
| -rw-r--r-- | compiler/stranal/WwLib.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/stranal/WwLib.lhs b/compiler/stranal/WwLib.lhs index 68292839ed..4610b58734 100644 --- a/compiler/stranal/WwLib.lhs +++ b/compiler/stranal/WwLib.lhs @@ -732,7 +732,7 @@ mk_absent_let dflags arg where arg_ty = idType arg abs_rhs = mkRuntimeErrorApp aBSENT_ERROR_ID arg_ty msg - msg = showSDocDebug dflags (ppr arg <+> ppr (idType arg)) + msg = showSDoc dflags (ppr arg <+> ppr (idType arg)) mk_seq_case :: Id -> CoreExpr -> CoreExpr mk_seq_case arg body = Case (Var arg) (sanitiseCaseBndr arg) (exprType body) [(DEFAULT, [], body)] |