[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 (file)
--- 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