diff options
Diffstat (limited to 'compiler/iface')
| -rw-r--r-- | compiler/iface/LoadIface.hs | 2 | ||||
| -rw-r--r-- | compiler/iface/MkIface.hs | 5 |
2 files changed, 5 insertions, 2 deletions
diff --git a/compiler/iface/LoadIface.hs b/compiler/iface/LoadIface.hs index b91d984b9a..54a051dc17 100644 --- a/compiler/iface/LoadIface.hs +++ b/compiler/iface/LoadIface.hs @@ -947,7 +947,7 @@ initExternalPackageState ghcPrimIface :: ModIface ghcPrimIface = (emptyModIface gHC_PRIM) { - mi_exports = ghcPrimExports, + mi_exports_arr = ghcPrimExports, mi_decls = [], mi_fixities = fixities, mi_fix_fn = mkIfaceFixCache fixities diff --git a/compiler/iface/MkIface.hs b/compiler/iface/MkIface.hs index a12cff2226..72b5e1f2a5 100644 --- a/compiler/iface/MkIface.hs +++ b/compiler/iface/MkIface.hs @@ -115,6 +115,7 @@ import Data.List import qualified Data.Map as Map import Data.Ord import Data.IORef +import Data.Array import System.Directory import System.FilePath @@ -260,7 +261,9 @@ mkIface_ hsc_env maybe_old_fingerprint mi_hsc_src = hsc_src, mi_deps = deps, mi_usages = usages, - mi_exports = mkIfaceExports exports, + mi_exports_arr = let + exports_list = mkIfaceExports exports + in listArray (0, length exports_list - 1) exports_list, -- Sort these lexicographically, so that -- the result is stable across compilations |