From 0067eb3c3061450e3287eae2bdf47da64004f44e Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 30 Oct 2003 10:12:39 +0000
Subject: [PATCH] [project @ 2003-10-30 10:12:39 by simonpj] Wibble

---
 ghc/compiler/hsSyn/Convert.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/hsSyn/Convert.lhs b/ghc/compiler/hsSyn/Convert.lhs
index ac17dbb..a21f364 100644
--- a/ghc/compiler/hsSyn/Convert.lhs
+++ b/ghc/compiler/hsSyn/Convert.lhs
@@ -302,7 +302,7 @@ cvt_context tys = map cvt_pred tys
 cvt_pred :: Meta.Type -> HsPred RdrName
 cvt_pred ty = case split_ty_app ty of
 	   	(ConT tc, tys) -> HsClassP (tconName tc) (map cvtType tys)
-		other -> pprPanic "Malformed predicate" (ppr ty)
+		other -> pprPanic "Malformed predicate" (text (show (Meta.pprType ty)))
 
 cvtType :: Meta.Type -> HsType RdrName
 cvtType ty = trans (root ty [])
-- 
1.7.10.4