From 02a0a5e3387e74a444052c5ccb5cd20faaffff8e Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 26 May 1997 01:01:43 +0000
Subject: [PATCH] [project @ 1997-05-26 01:01:43 by sof] new function:
 assertPprPanic

---
 ghc/compiler/utils/Util.lhs |   10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/utils/Util.lhs b/ghc/compiler/utils/Util.lhs
index 734a321..9919fd0 100644
--- a/ghc/compiler/utils/Util.lhs
+++ b/ghc/compiler/utils/Util.lhs
@@ -87,7 +87,7 @@ module Util (
 	-- error handling
 #if defined(COMPILING_GHC)
 	, panic, panic#, pprPanic, pprPanic#, pprError, pprTrace
-	, assertPanic
+	, assertPanic, assertPprPanic
 #endif {- COMPILING_GHC -}
 
     ) where
@@ -96,6 +96,7 @@ module Util (
 
 CHK_Ubiq() -- debugging consistency check
 IMPORT_1_3(List(zipWith4))
+import Pretty	
 
 #else
 import List(zipWith4)
@@ -851,5 +852,12 @@ pprPanic# heading pretty_msg = panic# (heading++(show pretty_msg))
 assertPanic :: String -> Int -> a
 assertPanic file line = panic ("ASSERT failed! file "++file++", line "++show line)
 
+assertPprPanic :: String -> Int -> Doc -> a
+assertPprPanic file line msg
+  = panic (show (sep [hsep[text "ASSERT failed! file", 
+		 	   text file, 
+			   text "line", int line], 
+		      msg]))
+
 #endif {- COMPILING_GHC -}
 \end{code}
-- 
1.7.10.4