[project @ 2002-06-17 11:24:30 by simonpj]

Record correct location for fixity errors

[project @ 2002-06-17 11:24:30 by simonpj]
Record correct location for fixity errors
6440f81f · simonpj · f179e855 · 6440f81f
Commit 6440f81f authored Jun 17, 2002 by simonpj
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

ghc/compiler/rename/RnEnv.lhs ghc/compiler/rename/RnEnv.lhs +2 -1

No files found.
--- 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