[project @ 1999-12-03 00:07:29 by lewie]

Fergot the booties...

diff --git a/ghc/compiler/types/FunDeps.hi-boot b/ghc/compiler/types/FunDeps.hi-boot
index a6a7b5e..be622ae 100644 (file)
--- a/ghc/compiler/types/FunDeps.hi-boot
+++ b/ghc/compiler/types/FunDeps.hi-boot
@@ -1,9 +1,7 @@
 _interface_ FunDeps 1
 _exports_
-instantiateFdClassTys instantiateFdTys instantiateFundeps oclose pprFundeps ;
+instantiateFdClassTys oclose pprFundeps ;
 _declarations_
 1 instantiateFdClassTys _:_ _forall_ [b] => Class.Class -> [b] -> [([b], [b])] ;;
-1 instantiateFdTys _:_ Inst.Inst -> [([TypeRep.Type], [TypeRep.Type])] ;
-1 instantiateFundeps _:_ Inst.Inst -> [([Var.Var], [Var.Var])] ;
 1 oclose _:_ _forall_ [a] => {Unique.Uniquable a} -> [([a], [a])] -> UniqFM.UniqFM a -> UniqFM.UniqFM a ;;
 1 pprFundeps _:_ _forall_ [a a1] => {Outputable.Outputable a} -> {Outputable.Outputable a1} -> [([a], [a1])] -> Outputable.PprStyle -> Pretty.Doc ;;

diff --git a/ghc/compiler/types/FunDeps.hi-boot-5 b/ghc/compiler/types/FunDeps.hi-boot-5
index 168a86e..c1e72ec 100644 (file)
--- a/ghc/compiler/types/FunDeps.hi-boot-5
+++ b/ghc/compiler/types/FunDeps.hi-boot-5
@@ -1,7 +1,5 @@
 __interface FunDeps 1 0 where
-__export FunDeps instantiateFdClassTys instantiateFdTys instantiateFundeps oclose pprFundeps ;
+__export FunDeps instantiateFdClassTys oclose pprFundeps ;
 1 instantiateFdClassTys :: __forall [b] => Class.Class -> [b] -> [([b], [b])] ;
-1 instantiateFdTys :: Inst.Inst -> [([TypeRep.Type], [TypeRep.Type])] ;
-1 instantiateFundeps :: Inst.Inst -> [([Var.Var], [Var.Var])] ;
 1 oclose :: __forall [a] => {Unique.Uniquable a} -> [([a], [a])] -> UniqFM.UniqFM a -> UniqFM.UniqFM a ;
 1 pprFundeps :: __forall [a a1] => {Outputable.Outputable a} -> {Outputable.Outputable a1} -> [([a], [a1])] -> Outputable.PprStyle -> Pretty.Doc ;