diff options
| author | Paolo Capriotti <p.capriotti@gmail.com> | 2012-04-25 14:10:40 +0100 |
|---|---|---|
| committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-04-26 17:00:19 +0100 |
| commit | 5bfd8933024cb2120c38e01346b1b47d6dde10cb (patch) | |
| tree | d35fbbcc907f506ae18ed9040e3b718858e3943f /compiler/rename/RnSource.lhs | |
| parent | 9e3171c632d200ae1b259dd3501fa6f6d9ac3278 (diff) | |
| download | haskell-5bfd8933024cb2120c38e01346b1b47d6dde10cb.tar.gz | |
Fix lookup of fixity signatures for type operators (#6027)
Extend name lookup for fixity declaration to the TcClsName namespace for
all reader names, instead of only those in DataName.
Diffstat (limited to 'compiler/rename/RnSource.lhs')
| -rw-r--r-- | compiler/rename/RnSource.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs index ffd2910b45..8c338c810a 100644 --- a/compiler/rename/RnSource.lhs +++ b/compiler/rename/RnSource.lhs @@ -269,7 +269,7 @@ rnSrcFixityDecls bndr_set fix_decls rn_decl (L loc (FixitySig (L name_loc rdr_name) fixity)) = setSrcSpan name_loc $ -- this lookup will fail if the definition isn't local - do names <- lookupLocalDataTcNames bndr_set what rdr_name + do names <- lookupLocalTcNames bndr_set what rdr_name return [ L loc (FixitySig (L name_loc name) fixity) | name <- names ] what = ptext (sLit "fixity signature") @@ -304,7 +304,7 @@ rnSrcWarnDecls bndr_set decls where rn_deprec (Warning rdr_name txt) -- ensures that the names are defined locally - = do { names <- lookupLocalDataTcNames bndr_set what rdr_name + = do { names <- lookupLocalTcNames bndr_set what rdr_name ; return [(nameOccName name, txt) | name <- names] } what = ptext (sLit "deprecation") |