[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 (file)
--- 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
 
 ----------------