diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-05-27 11:02:47 -0400 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2016-05-27 11:03:02 -0400 |
| commit | 3a00ff92a3ee66c096b85b180d247d1a471a6b6e (patch) | |
| tree | 223955d8ea1f96a46fbbb8217f5dd77731eb181f /compiler/deSugar/Desugar.hs | |
| parent | 59250dce325a6115c8419cb8578025f0d76184d2 (diff) | |
| download | haskell-3a00ff92a3ee66c096b85b180d247d1a471a6b6e.tar.gz | |
Do not init record accessors as exported
This was causing redundant code generation when accessors are not
actually exported, as they were being marked as "exported" at
initialization.
Test Plan: validate
Reviewers: simonpj, austin, bgamari
Reviewed By: simonpj
Subscribers: mpickering, thomie
Differential Revision: https://phabricator.haskell.org/D2270
Diffstat (limited to 'compiler/deSugar/Desugar.hs')
| -rw-r--r-- | compiler/deSugar/Desugar.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/deSugar/Desugar.hs b/compiler/deSugar/Desugar.hs index 75f6a3491b..c7a869d5cd 100644 --- a/compiler/deSugar/Desugar.hs +++ b/compiler/deSugar/Desugar.hs @@ -296,7 +296,10 @@ deSugar hsc_env (text "Desugar"<+>brackets (ppr mod)) (const ()) $ do { -- Desugar the program - ; let export_set = availsToNameSet exports + ; let export_set = + -- Used to be 'availsToNameSet', but we now export selectors + -- only when necessary. See #12125. + availsToNameSetWithSelectors exports target = hscTarget dflags hpcInfo = emptyHpcInfo other_hpc_info |