diff options
Diffstat (limited to 'compiler/rename/RnSource.hs')
| -rw-r--r-- | compiler/rename/RnSource.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/rename/RnSource.hs b/compiler/rename/RnSource.hs index 1579400fc2..b284ec8d88 100644 --- a/compiler/rename/RnSource.hs +++ b/compiler/rename/RnSource.hs @@ -287,7 +287,7 @@ rnSrcFixityDecls bndr_set fix_decls = setSrcSpan name_loc $ -- this lookup will fail if the definition isn't local do names <- lookupLocalTcNames sig_ctxt what rdr_name - return [ L name_loc name | name <- names ] + return [ L name_loc name | (_, name) <- names ] what = ptext (sLit "fixity signature") {- @@ -325,7 +325,7 @@ rnSrcWarnDecls bndr_set decls' -- ensures that the names are defined locally = do { names <- concatMapM (lookupLocalTcNames sig_ctxt what . unLoc) rdr_names - ; return [(nameOccName name, txt) | name <- names] } + ; return [(rdrNameOcc rdr, txt) | (rdr, _) <- names] } what = ptext (sLit "deprecation") |