From: simonpj <unknown>
Date: Thu, 30 Oct 2003 09:38:14 +0000 (+0000)
Subject: [project @ 2003-10-30 09:38:14 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~306
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=223d65c79ea253baa64c17a1735014c959a2ae32;p=ghc-hetmet.git

[project @ 2003-10-30 09:38:14 by simonpj]
Improve panic msg
---

diff --git a/ghc/compiler/hsSyn/Convert.lhs b/ghc/compiler/hsSyn/Convert.lhs
index 89cd398..ac17dbb 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 -> panic "Malformed predicate"
+		other -> pprPanic "Malformed predicate" (ppr ty)
 
 cvtType :: Meta.Type -> HsType RdrName
 cvtType ty = trans (root ty [])