diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2014-08-25 12:10:29 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2014-08-25 13:39:14 +0100 |
| commit | 9f8754eb46b59886ebc09dec2581ed31eea053dc (patch) | |
| tree | 25ff8bf166220c0451b4241c9bf5ecea3110fefc /compiler | |
| parent | 5295cd2b53cb2e9cf3df49274d25d3f72d618c2a (diff) | |
| download | haskell-9f8754eb46b59886ebc09dec2581ed31eea053dc.tar.gz | |
Use DumpStyle rather than UserStyle for pprTrace output
The main motivation is that user-style output assumes that everything has been
tidied, not enough uniques are printed by default.
The downside is that pprTrace output now has module prefixes which can be overwhelming,
but -dsuppress-module-prefixes will suppress them.
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index a65607a7c3..953797e499 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -324,7 +324,7 @@ sdocWithPlatform f = sdocWithDynFlags (f . targetPlatform) \begin{code} qualName :: PprStyle -> QueryQualifyName qualName (PprUser q _) mod occ = queryQualifyName q mod occ -qualName _other mod _ = NameQual (moduleName mod) +qualName _other mod _ = NameQual (moduleName mod) qualModule :: PprStyle -> QueryQualifyModule qualModule (PprUser q _) m = queryQualifyModule q m @@ -1029,7 +1029,7 @@ assertPprPanic file line msg pprDebugAndThen :: DynFlags -> (String -> a) -> String -> SDoc -> a pprDebugAndThen dflags cont heading pretty_msg - = cont (showSDoc dflags doc) + = cont (showSDocDump dflags doc) where doc = sep [text heading, nest 4 pretty_msg] \end{code} |