Print a more helpful error for find_thing
authorsimonpj@microsoft.com <unknown>
Thu, 4 May 2006 15:33:37 +0000 (15:33 +0000)
committersimonpj@microsoft.com <unknown>
Thu, 4 May 2006 15:33:37 +0000 (15:33 +0000)
compiler/typecheck/TcEnv.lhs

index 388828e..c5d65c2 100644 (file)
@@ -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)
        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}
 \end{code}
 
 \begin{code}