From 430976c3382ac7fcf16653f24b6e2b76d8c5e661 Mon Sep 17 00:00:00 2001 From: sof Date: Sat, 5 Jul 1997 01:27:41 +0000 Subject: [PATCH] [project @ 1997-07-05 01:27:41 by sof] ppr adjustments --- ghc/compiler/utils/Util.lhs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/ghc/compiler/utils/Util.lhs b/ghc/compiler/utils/Util.lhs index 9919fd0..6ed94ac 100644 --- a/ghc/compiler/utils/Util.lhs +++ b/ghc/compiler/utils/Util.lhs @@ -830,14 +830,14 @@ panic x = error ("panic! (the `impossible' happened):\n\t" ++ "Please report it as a compiler bug " ++ "to glasgow-haskell-bugs@dcs.gla.ac.uk.\n\n" ) -pprPanic heading pretty_msg = panic (heading++(show pretty_msg)) -pprError heading pretty_msg = error (heading++(show pretty_msg)) +pprPanic heading pretty_msg = panic (heading++ " " ++ (show pretty_msg)) +pprError heading pretty_msg = error (heading++ " " ++ (show pretty_msg)) #if __GLASGOW_HASKELL__ == 201 -pprTrace heading pretty_msg = GHCbase.trace (heading++(show pretty_msg)) +pprTrace heading pretty_msg = GHCbase.trace (heading++" "++(show pretty_msg)) #elif __GLASGOW_HASKELL__ >= 202 -pprTrace heading pretty_msg = GlaExts.trace (heading++(show pretty_msg)) +pprTrace heading pretty_msg = GlaExts.trace (heading++" "++(show pretty_msg)) #else -pprTrace heading pretty_msg = trace (heading++(show pretty_msg)) +pprTrace heading pretty_msg = trace (heading++" "++(show pretty_msg)) #endif -- #-versions because panic can't return an unboxed int, and that's -- 1.7.10.4