[project @ 1996-06-26 10:26:00 by partain]

[ghc-hetmet.git] / ghc / compiler / main / Main.lhs

diff --git a/ghc/compiler/main/Main.lhs b/ghc/compiler/main/Main.lhs
index c0d4791..8bd7f24 100644 (file)
--- a/ghc/compiler/main/Main.lhs
+++ b/ghc/compiler/main/Main.lhs
@@ -93,7 +93,7 @@ doIt (core_cmds, stg_cmds) input_pgm
 
     renameModule rn_uniqs rdr_module >>=
        \ (rn_mod, rn_env, import_names,
-          usage_stuff,
+          export_fn, usage_stuff,
           rn_errs_bag, rn_warns_bag) ->
 
     if (not (isEmptyBag rn_errs_bag)) then
@@ -125,7 +125,7 @@ doIt (core_cmds, stg_cmds) input_pgm
     startIface mod_name                                    >>= \ if_handle ->
     ifaceUsages                 if_handle usages_map       >>
     ifaceVersions       if_handle version_info     >>
-    ifaceExportList     if_handle rn_mod           >>
+    ifaceExportList     if_handle export_fn rn_mod >>
     ifaceFixities       if_handle rn_mod           >>
     ifaceInstanceModules if_handle instance_modules >>