From 8f7d8614c5ea91e2df8c26ba4871e19b71a97805 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 13 Mar 2001 16:57:34 +0000
Subject: [PATCH] [project @ 2001-03-13 16:57:34 by simonpj] Add error
 location for deriving failure errors

---
 ghc/compiler/typecheck/TcDeriv.lhs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/typecheck/TcDeriv.lhs b/ghc/compiler/typecheck/TcDeriv.lhs
index 298d2dd..86084ab 100644
--- a/ghc/compiler/typecheck/TcDeriv.lhs
+++ b/ghc/compiler/typecheck/TcDeriv.lhs
@@ -405,7 +405,8 @@ solveDerivEqns inst_env_in orig_eqns
         in
 	    -- Simplify each RHS
 	tcSetInstEnv inst_env (
-	  listTc [ tcAddErrCtxt (derivCtxt tc) $
+	  listTc [ tcAddSrcLoc (getSrcLoc tc)	$
+		   tcAddErrCtxt (derivCtxt tc)	$
 		   tcSimplifyThetas deriv_rhs
 	         | (_, _,tc,_,deriv_rhs) <- orig_eqns ]  
 	)					`thenTc` \ next_solns ->
-- 
1.7.10.4