diff options
| author | Dr. ERDI Gergo <gergo@erdi.hu> | 2014-12-17 22:09:06 +0800 |
|---|---|---|
| committer | Dr. ERDI Gergo <gergo@erdi.hu> | 2014-12-17 22:09:06 +0800 |
| commit | e5f429cbc02df745df1517d53c8ca170de41757b (patch) | |
| tree | 088ccc697ea42bd9a144f81a0bb16bda5e991b64 /compiler/rename/RnSource.hs | |
| parent | 0ac059dcd53bb41fdeb2a20af74ecc046a519b8f (diff) | |
| download | haskell-wip/T9889.tar.gz | |
Pattern synonym names need to be in scope before renaming bindings (#9889)wip/T9889
Diffstat (limited to 'compiler/rename/RnSource.hs')
| -rw-r--r-- | compiler/rename/RnSource.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/rename/RnSource.hs b/compiler/rename/RnSource.hs index 95211cbdfc..4395329493 100644 --- a/compiler/rename/RnSource.hs +++ b/compiler/rename/RnSource.hs @@ -114,7 +114,7 @@ rnSrcDecls extra_deps group@(HsGroup { hs_valds = val_decls, -- It uses the fixity env from (A) to bind fixities for view patterns. new_lhs <- rnTopBindsLHS local_fix_env val_decls ; -- bind the LHSes (and their fixities) in the global rdr environment - let { val_binders = collectHsValBinders new_lhs ; + let { val_binders = collectHsValNewBinders new_lhs ; all_bndrs = extendNameSetList tc_bndrs val_binders ; val_avails = map Avail val_binders } ; traceRn (text "rnSrcDecls" <+> ppr val_avails) ; |