From: sof <unknown>
Date: Sat, 5 Jul 1997 01:27:41 +0000 (+0000)
Subject: [project @ 1997-07-05 01:27:41 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~280
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=430976c3382ac7fcf16653f24b6e2b76d8c5e661;p=ghc-hetmet.git

[project @ 1997-07-05 01:27:41 by sof]
ppr adjustments
---

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