From 111e58bd4cce028fe9208e699700fbfbe413d0e6 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 18 May 1999 16:11:00 +0000
Subject: [PATCH] [project @ 1999-05-18 16:10:59 by simonpj] Small changes to
 make Simon's big commit work

---
 ghc/compiler/basicTypes/DataCon.hi-boot-5 |    3 ++-
 ghc/compiler/basicTypes/Module.lhs        |    4 ----
 ghc/compiler/types/InstEnv.hi-boot-5      |    4 ++++
 3 files changed, 6 insertions(+), 5 deletions(-)
 create mode 100644 ghc/compiler/types/InstEnv.hi-boot-5

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 ;
+
-- 
1.7.10.4