[project @ 1996-04-05 08:26:04 by partain]

[ghc-hetmet.git] / ghc / compiler / utils / Util.lhs

diff --git a/ghc/compiler/utils/Util.lhs b/ghc/compiler/utils/Util.lhs
index e59113e..68fdb49 100644 (file)
--- a/ghc/compiler/utils/Util.lhs
+++ b/ghc/compiler/utils/Util.lhs
@@ -77,7 +77,7 @@ module Util (
 
        -- error handling
 #if defined(COMPILING_GHC)
-       , panic, panic#, pprPanic, pprPanic#, pprTrace
+       , panic, panic#, pprPanic, pprPanic#, pprError, pprTrace
 # ifdef DEBUG
        , assertPanic
 # endif
@@ -807,6 +807,7 @@ panic x = error ("panic! (the `impossible' happened):\n\t"
              ++ "to glasgow-haskell-bugs@dcs.glasgow.ac.uk.\n\n" )
 
 pprPanic heading pretty_msg = panic (heading++(ppShow 80 pretty_msg))
+pprError heading pretty_msg = error (heading++(ppShow 80 pretty_msg))
 pprTrace heading pretty_msg = trace (heading++(ppShow 80 pretty_msg))
 
 -- #-versions because panic can't return an unboxed int, and that's