From: simonpj <unknown>
Date: Mon, 17 Jun 2002 11:24:30 +0000 (+0000)
Subject: [project @ 2002-06-17 11:24:30 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1958
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6440f81f91c35d9a60fe64df0514f45af1366c80;p=ghc-hetmet.git

[project @ 2002-06-17 11:24:30 by simonpj]
Record correct location for fixity errors
---

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