diff options
| author | simonpj <unknown> | 1999-05-18 15:05:18 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 1999-05-18 15:05:18 +0000 |
| commit | 69e14f75a4b031e489b7774914e5a176409cea78 (patch) | |
| tree | 144089d677d9ab3a7c135e97dccd3bd16ce45d0a /ghc/compiler/utils/Outputable.lhs | |
| parent | c9dfd084e476b18290e964e5e5d66adf0771b9e6 (diff) | |
| download | haskell-69e14f75a4b031e489b7774914e5a176409cea78.tar.gz | |
[project @ 1999-05-18 15:03:54 by simonpj]
RULES-NOTES
Diffstat (limited to 'ghc/compiler/utils/Outputable.lhs')
| -rw-r--r-- | ghc/compiler/utils/Outputable.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/utils/Outputable.lhs b/ghc/compiler/utils/Outputable.lhs index 1ddb112812..f44fd2ade9 100644 --- a/ghc/compiler/utils/Outputable.lhs +++ b/ghc/compiler/utils/Outputable.lhs @@ -397,7 +397,7 @@ pprPanic# heading pretty_msg = panic# (show (doc PprDebug)) pprAndThen :: (String -> a) -> String -> SDoc -> a pprAndThen cont heading pretty_msg = cont (show (doc PprDebug)) where - doc = text heading <+> pretty_msg + doc = sep [text heading, nest 4 pretty_msg] assertPprPanic :: String -> Int -> SDoc -> a assertPprPanic file line msg |