From df0878586620fee9ea5ecbe4d377006c88ad498f Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Thu, 4 May 2006 15:33:37 +0000
Subject: [PATCH] Print a more helpful error for find_thing

---
 compiler/typecheck/TcEnv.lhs |    2 ++
 1 file changed, 2 insertions(+)

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}
-- 
1.7.10.4