From 6440f81f91c35d9a60fe64df0514f45af1366c80 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 17 Jun 2002 11:24:30 +0000
Subject: [PATCH] [project @ 2002-06-17 11:24:30 by simonpj] Record correct
 location for fixity errors

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

diff --git a/ghc/compiler/rename/RnEnv.lhs b/ghc/compiler/rename/RnEnv.lhs
index ae63657..30853d9 100644
--- a/ghc/compiler/rename/RnEnv.lhs
+++ b/ghc/compiler/rename/RnEnv.lhs
@@ -497,7 +497,8 @@ mkTopFixityEnv gbl_env fix_sigs
 		-- add both to the fixity env
 	go fix_env (FixitySig rdr_name fixity loc)
 	  = case catMaybes (map (lookup_local mod gbl_env) rdr_names) of
-		  [] -> addErrRn (unknownNameErr rdr_name)	`thenRn_`
+		  [] -> pushSrcLocRn loc 			$
+			addErrRn (unknownNameErr rdr_name)	`thenRn_`
 	 	        returnRn fix_env
 		  ns -> foldlRn add fix_env ns
 
-- 
1.7.10.4