From: sewardj <unknown>
Date: Mon, 27 Nov 2000 17:43:45 +0000 (+0000)
Subject: [project @ 2000-11-27 17:43:45 by sewardj]
X-Git-Tag: Approximately_9120_patches~3233
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2f86d2d351319f91483916ea0265e07f2f07574a;p=ghc-hetmet.git

[project @ 2000-11-27 17:43:45 by sewardj]
Add a case to hsSigFVs.
---

diff --git a/ghc/compiler/rename/RnHsSyn.lhs b/ghc/compiler/rename/RnHsSyn.lhs
index efe24a3..aac23d4 100644
--- a/ghc/compiler/rename/RnHsSyn.lhs
+++ b/ghc/compiler/rename/RnHsSyn.lhs
@@ -145,6 +145,7 @@ hsSigsFVs sigs = plusFVs (map hsSigFVs sigs)
 hsSigFVs (Sig v ty _) 	    = extractHsTyNames ty
 hsSigFVs (SpecInstSig ty _) = extractHsTyNames ty
 hsSigFVs (SpecSig v ty _)   = extractHsTyNames ty
+hsSigFVs (ClassOpSig _ _ ty _) = extractHsTyNames ty
 hsSigFVs other		    = emptyFVs
 
 ----------------