[project @ 2005-04-13 13:17:35 by simonmar]

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

diff --git a/ghc/compiler/main/HscTypes.lhs b/ghc/compiler/main/HscTypes.lhs
index 114f6c0..726c020 100644 (file)
--- a/ghc/compiler/main/HscTypes.lhs
+++ b/ghc/compiler/main/HscTypes.lhs
@@ -360,11 +360,13 @@ data ModDetails
    = ModDetails {
        -- The next three fields are created by the typechecker
         md_types    :: !TypeEnv,
+       md_exports  :: NameSet,
         md_insts    :: ![DFunId],      -- Dfun-ids for the instances in this module
         md_rules    :: ![IdCoreRule]   -- Domain may include Ids from other modules
      }
 
 emptyModDetails = ModDetails { md_types = emptyTypeEnv,
+                              md_exports = emptyNameSet,
                               md_insts = [],
                               md_rules = [] }