[project @ 2000-06-10 00:34:52 by lewie]

[ghc-hetmet.git] / ghc / compiler / typecheck / Inst.lhs

diff --git a/ghc/compiler/typecheck/Inst.lhs b/ghc/compiler/typecheck/Inst.lhs
index 7ccc480..d4565d0 100644 (file)
--- a/ghc/compiler/typecheck/Inst.lhs
+++ b/ghc/compiler/typecheck/Inst.lhs
@@ -398,7 +398,7 @@ instFunDeps orig theta
 
 instFunDepsOfTheta theta
   = let ifd (Class clas tys) = instantiateFdClassTys clas tys
-       ifd _ = []
+       ifd (IParam n ty)    = [([], [ty])]
     in concat (map ifd theta)
 
 newMethodWithGivenTy orig id tys theta tau