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 /testsuite/tests/quasiquotation | |
| 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 'testsuite/tests/quasiquotation')
| -rw-r--r-- | testsuite/tests/quasiquotation/T7918.stdout | 44 |
1 files changed, 22 insertions, 22 deletions
diff --git a/testsuite/tests/quasiquotation/T7918.stdout b/testsuite/tests/quasiquotation/T7918.stdout index 43de631493..f4d406b591 100644 --- a/testsuite/tests/quasiquotation/T7918.stdout +++ b/testsuite/tests/quasiquotation/T7918.stdout @@ -1,27 +1,27 @@ -(GHC.Types.True, T7918B.hs:6:11-14) -(GHC.Base.id, T7918B.hs:7:11-14) -(GHC.Types.True, T7918B.hs:7:11-14) -(GHC.Types.True, T7918B.hs:8:11-14) -(GHC.Classes.||, T7918B.hs:8:11-14) -(GHC.Types.False, T7918B.hs:8:11-14) -(GHC.Types.False, T7918B.hs:9:11-14) -(GHC.Err.undefined, T7918B.hs:11:7-15) -(GHC.Types.Bool, T7918B.hs:11:24-27) -(GHC.Err.undefined, T7918B.hs:12:7-15) -(Data.Maybe.Maybe, T7918B.hs:12:24-27) -(GHC.Types.Bool, T7918B.hs:12:24-27) -(GHC.Err.undefined, T7918B.hs:13:7-15) -(Data.Either.Either, T7918B.hs:13:24-27) -(GHC.Types.Bool, T7918B.hs:13:24-27) -(GHC.Types.Int, T7918B.hs:13:24-27) -(GHC.Err.undefined, T7918B.hs:14:7-15) -(GHC.Types.Int, T7918B.hs:14:24-27) +(True, T7918B.hs:6:11-14) +(id, T7918B.hs:7:11-14) +(True, T7918B.hs:7:11-14) +(True, T7918B.hs:8:11-14) +(||, T7918B.hs:8:11-14) +(False, T7918B.hs:8:11-14) +(False, T7918B.hs:9:11-14) +(undefined, T7918B.hs:11:7-15) +(Bool, T7918B.hs:11:24-27) +(undefined, T7918B.hs:12:7-15) +(Maybe, T7918B.hs:12:24-27) +(Bool, T7918B.hs:12:24-27) +(undefined, T7918B.hs:13:7-15) +(Either, T7918B.hs:13:24-27) +(Bool, T7918B.hs:13:24-27) +(Int, T7918B.hs:13:24-27) +(undefined, T7918B.hs:14:7-15) +(Int, T7918B.hs:14:24-27) (x, T7918B.hs:16:9-12) -(GHC.Err.undefined, T7918B.hs:16:16-24) +(undefined, T7918B.hs:16:16-24) (x, T7918B.hs:17:9-12) -(GHC.Err.undefined, T7918B.hs:17:16-24) +(undefined, T7918B.hs:17:16-24) (x, T7918B.hs:18:9-12) (y, T7918B.hs:18:9-12) -(GHC.Err.undefined, T7918B.hs:18:16-24) +(undefined, T7918B.hs:18:16-24) (y, T7918B.hs:19:9-12) -(GHC.Err.undefined, T7918B.hs:19:16-24) +(undefined, T7918B.hs:19:16-24) |