From 2f86d2d351319f91483916ea0265e07f2f07574a Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Mon, 27 Nov 2000 17:43:45 +0000
Subject: [PATCH] [project @ 2000-11-27 17:43:45 by sewardj] Add a case to
 hsSigFVs.

---
 ghc/compiler/rename/RnHsSyn.lhs |    1 +
 1 file changed, 1 insertion(+)

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