From: simonpj@microsoft.com <unknown>
Date: Mon, 13 Sep 2010 17:04:07 +0000 (+0000)
Subject: Improve crash message
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=252ea4fa9b6263e483690403ba0eaebb643e13ee;hp=2fc5aa708982a414235d3aff68dea4329b546063

Improve crash message
---

diff --git a/compiler/typecheck/TcMatches.lhs b/compiler/typecheck/TcMatches.lhs
index 255d97b..6080533 100644
--- a/compiler/typecheck/TcMatches.lhs
+++ b/compiler/typecheck/TcMatches.lhs
@@ -653,6 +653,6 @@ checkArgs fun (MatchGroup (match1:matches) _)
 
     args_in_match :: LMatch Name -> Int
     args_in_match (L _ (Match pats _ _)) = length pats
-checkArgs _ _ = panic "TcPat.checkArgs" -- Matches always non-empty
+checkArgs fun _ = pprPanic "TcPat.checkArgs" (ppr fun) -- Matches always non-empty
 \end{code}