From d5ed8c9054711714b7cd88ce485af6bf572dc6b1 Mon Sep 17 00:00:00 2001
From: lewie <unknown>
Date: Mon, 15 May 2000 22:44:00 +0000
Subject: [PATCH] [project @ 2000-05-15 22:44:00 by lewie] Fixed missing case
 in dependency analysis for an implicit param.

---
 ghc/compiler/typecheck/TcTyClsDecls.lhs |    2 ++
 1 file changed, 2 insertions(+)

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