diff options
| author | Douglas Wilson <douglas.wilson@gmail.com> | 2017-11-13 09:16:01 +1300 |
|---|---|---|
| committer | Douglas Wilson <douglas.wilson@gmail.com> | 2017-11-13 09:16:01 +1300 |
| commit | 667deafa5b13593eb91239856a5f0b8db2ca4d19 (patch) | |
| tree | a93dc33b3fc100bf3eb532007af950cac849c87a /compiler/backpack | |
| parent | 438dd1cbba13d35f3452b4dcef3f94ce9a216905 (diff) | |
| download | haskell-wip/D4170.tar.gz | |
Store ModIface exports in an arraywip/D4170
Summary:
To lessen cascading changes, the old field name mi_exports (returning a list) is
exported as an accessor function and the field is replaced with mi_exports_arr.
There are many more lists that would likely benefit from the same treatment,
but one thing at a time.
Test Plan: Check gipedia
Reviewers: bgamari
Subscribers: rwbarton, thomie
Differential Revision: https://phabricator.haskell.org/D4170
Diffstat (limited to 'compiler/backpack')
| -rw-r--r-- | compiler/backpack/RnModIface.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/backpack/RnModIface.hs b/compiler/backpack/RnModIface.hs index 2199965d13..2b9cdc1b01 100644 --- a/compiler/backpack/RnModIface.hs +++ b/compiler/backpack/RnModIface.hs @@ -101,7 +101,7 @@ rnModIface hsc_env insts nsubst iface = do sig_of <- case mi_sig_of iface of Nothing -> return Nothing Just x -> fmap Just (rnModule x) - exports <- mapM rnAvailInfo (mi_exports iface) + exports <- mapM rnAvailInfo (mi_exports_arr iface) decls <- mapM rnIfaceDecl' (mi_decls iface) insts <- mapM rnIfaceClsInst (mi_insts iface) fams <- mapM rnIfaceFamInst (mi_fam_insts iface) @@ -113,7 +113,7 @@ rnModIface hsc_env insts nsubst iface = do , mi_sig_of = sig_of , mi_insts = insts , mi_fam_insts = fams - , mi_exports = exports + , mi_exports_arr = exports , mi_decls = decls , mi_deps = deps } |