[project @ 2000-05-15 22:44:00 by lewie]

Fixed missing case in dependency analysis for an implicit param.

diff --git a/ghc/compiler/typecheck/TcTyClsDecls.lhs b/ghc/compiler/typecheck/TcTyClsDecls.lhs
index a4c97df..1be4d68 100644 (file)
--- a/ghc/compiler/typecheck/TcTyClsDecls.lhs
+++ b/ghc/compiler/typecheck/TcTyClsDecls.lhs
@@ -338,6 +338,8 @@ get_ty (HsForAllTy _ ctxt mty)
   = get_ctxt ctxt `unionUniqSets` get_ty mty
 get_ty (MonoDictTy name _)
   = set_name name
+get_ty (MonoIParamTy name _)
+  = emptyUniqSet
 
 ----------------------------------------------------
 get_tys tys