[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 (file)
--- 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 (file)
--- 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 (file)
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 ;
+