From: simonpj@microsoft.com <unknown>
Date: Thu, 4 May 2006 15:33:37 +0000 (+0000)
Subject: Print a more helpful error for find_thing
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=df0878586620fee9ea5ecbe4d377006c88ad498f

Print a more helpful error for find_thing
---

diff --git a/compiler/typecheck/TcEnv.lhs b/compiler/typecheck/TcEnv.lhs
index 388828e..c5d65c2 100644
--- a/compiler/typecheck/TcEnv.lhs
+++ b/compiler/typecheck/TcEnv.lhs
@@ -390,6 +390,8 @@ find_thing ignore_it tidy_env (ATyVar tv ty)
 	bound_at = parens $ ptext SLIT("bound at:") <+> ppr (getSrcLoc tv)
     in
     returnM (tidy_env1, Just msg)
+
+find_thing _ _ thing = pprPanic "find_thing" (ppr thing)
 \end{code}
 
 \begin{code}