diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2016-12-17 11:53:59 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-12-17 17:35:24 -0500 |
| commit | 0af959b1999b48f3b8e6c47184b6f8c80b4c452d (patch) | |
| tree | 9251558436e7a42a8b9ee165b2110bbe44408df9 /compiler/deSugar/Desugar.hs | |
| parent | d88efb7048160c3031eadb4f3b729e9fe406414d (diff) | |
| download | haskell-0af959b1999b48f3b8e6c47184b6f8c80b4c452d.tar.gz | |
Revert "Do not init record accessors as exported"
This reverts commit 3a00ff92a3ee66c096b85b180d247d1a471a6b6e due
to #12993
Diffstat (limited to 'compiler/deSugar/Desugar.hs')
| -rw-r--r-- | compiler/deSugar/Desugar.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/compiler/deSugar/Desugar.hs b/compiler/deSugar/Desugar.hs index e73f12f19c..1e117b3c00 100644 --- a/compiler/deSugar/Desugar.hs +++ b/compiler/deSugar/Desugar.hs @@ -304,10 +304,7 @@ deSugar hsc_env (text "Desugar"<+>brackets (ppr mod)) (const ()) $ do { -- Desugar the program - ; let export_set = - -- Used to be 'availsToNameSet', but we now export selectors - -- only when necessary. See #12125. - availsToNameSetWithSelectors exports + ; let export_set = availsToNameSet exports target = hscTarget dflags hpcInfo = emptyHpcInfo other_hpc_info |