diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2016-05-12 21:58:58 +0100 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2016-06-17 13:27:39 -0700 |
| commit | 4b3d52b745d5789fb9543ba11b971595ca16020d (patch) | |
| tree | 27441c9f21de9a5a5a51261424dce17b3759488a /compiler/rename/RnSource.hs | |
| parent | 498ed2664219f7e8f1077f46ad2061aba2f57de4 (diff) | |
| download | haskell-wip/T11970.tar.gz | |
Basic rip outwip/T11970
working
Add test files
tabs
test
Formatting
Formatting and comments
comment
Add test
Record usages
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 d43945f7ff..1d216de16a 100644 --- a/compiler/rename/RnSource.hs +++ b/compiler/rename/RnSource.hs @@ -2011,7 +2011,7 @@ extendPatSynEnv val_decls local_fix_env thing = do { names_with_fls <- new_ps val_decls ; let pat_syn_bndrs = concat [ name: map flSelector fields | (name, fields) <- names_with_fls ] - ; let avails = map patSynAvail pat_syn_bndrs + ; let avails = map avail pat_syn_bndrs ; (gbl_env, lcl_env) <- extendGlobalRdrEnvRn avails local_fix_env ; let field_env' = extendNameEnvList (tcg_field_env gbl_env) names_with_fls |