From: lewie <unknown>
Date: Mon, 15 May 2000 22:44:00 +0000 (+0000)
Subject: [project @ 2000-05-15 22:44:00 by lewie]
X-Git-Tag: Approximately_9120_patches~4455
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d5ed8c9054711714b7cd88ce485af6bf572dc6b1;p=ghc-hetmet.git

[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
--- 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