[project @ 2000-11-20 16:07:12 by simonpj]

[ghc-hetmet.git] / ghc / compiler / rename / RnNames.lhs

diff --git a/ghc/compiler/rename/RnNames.lhs b/ghc/compiler/rename/RnNames.lhs
index e95e491..571ee3a 100644 (file)
--- a/ghc/compiler/rename/RnNames.lhs
+++ b/ghc/compiler/rename/RnNames.lhs
@@ -5,7 +5,7 @@
 
 \begin{code}
 module RnNames (
-       getGlobalNames
+       getGlobalNames, exportsFromAvail
     ) where
 
 #include "HsVersions.h"
@@ -58,7 +58,7 @@ getGlobalNames :: Module -> RdrNameHsModule
                        GlobalRdrEnv,   -- Maps just *local* things
                        ExportAvails)   -- The exported stuff
 
-getGlobalNames this_mod (HsModule _ _ exports imports decls _ mod_loc)
+getGlobalNames this_mod (HsModule _ _ _ imports decls _ mod_loc)
   =            -- PROCESS LOCAL DECLS
                -- Do these *first* so that the correct provenance gets
                -- into the global name cache.
@@ -183,10 +183,10 @@ importsFromLocalDecls this_mod decls
        (_, dups) = removeDups compare all_names
     in
        -- Check for duplicate definitions
-    mapRn_ (addErrRn . dupDeclErr) dups                `thenRn_` 
+    mapRn_ (addErrRn . dupDeclErr) dups                        `thenRn_` 
 
        -- Record that locally-defined things are available
-    recordLocalSlurps avails                   `thenRn_`
+    recordLocalSlurps (availsToNameSet avails)         `thenRn_`
 
        -- Build the environment
     qualifyImports (moduleName this_mod)