Commit 6440f81f authored by simonpj's avatar simonpj
Browse files

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

Record correct location for fixity errors
parent f179e855
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment