From: simonpj <unknown>
Date: Tue, 18 May 1999 16:11:00 +0000 (+0000)
Subject: [project @ 1999-05-18 16:10:59 by simonpj]
X-Git-Tag: Approximately_9120_patches~6194
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=111e58bd4cce028fe9208e699700fbfbe413d0e6;p=ghc-hetmet.git

[project @ 1999-05-18 16:10:59 by simonpj]
Small changes to make Simon's big commit work
---

diff --git a/ghc/compiler/basicTypes/DataCon.hi-boot-5 b/ghc/compiler/basicTypes/DataCon.hi-boot-5
index 7d1cece..e641a92 100644
--- a/ghc/compiler/basicTypes/DataCon.hi-boot-5
+++ b/ghc/compiler/basicTypes/DataCon.hi-boot-5
@@ -1,3 +1,4 @@
 __interface DataCon 1 0 where
-__export DataCon DataCon ;
+__export DataCon DataCon dataConType ;
 1 data DataCon ;
+1 dataConType :: DataCon -> Type.Type ;
diff --git a/ghc/compiler/basicTypes/Module.lhs b/ghc/compiler/basicTypes/Module.lhs
index 4320bc3..9e9facb 100644
--- a/ghc/compiler/basicTypes/Module.lhs
+++ b/ghc/compiler/basicTypes/Module.lhs
@@ -143,10 +143,6 @@ type ModuleName = EncodedFS
 	-- Haskell module names can include the quote character ',
 	-- so the module names have the z-encoding applied to them
 
-type ModuleNameSet = FiniteMap ModuleName
-elemModuleNameSet  s x = elemFM s x
-moduleNameSetElems s   = eltsFM s
-
 
 pprModuleName :: ModuleName -> SDoc
 pprModuleName nm = pprEncodedFS nm
diff --git a/ghc/compiler/types/InstEnv.hi-boot-5 b/ghc/compiler/types/InstEnv.hi-boot-5
new file mode 100644
index 0000000..94c310d
--- /dev/null
+++ b/ghc/compiler/types/InstEnv.hi-boot-5
@@ -0,0 +1,4 @@
+__interface InstEnv 1 0 where
+__export InstEnv InstEnv ;
+1 data InstEnv ;
+