X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FhsSyn%2FHsBinds.lhs;h=5e966274135e29d10d9946f66a23de7edb4e2fa6;hb=90c0b29e6d8d847e5357bd0a9df98e2846046db7;hp=a9a114d4a30cb05509c27f0621c520eb824b7e6b;hpb=e7b901ded4857432d181386ac1ec51acb6ad2be7;p=ghc-hetmet.git

diff --git a/ghc/compiler/hsSyn/HsBinds.lhs b/ghc/compiler/hsSyn/HsBinds.lhs
index a9a114d..5e96627 100644
--- a/ghc/compiler/hsSyn/HsBinds.lhs
+++ b/ghc/compiler/hsSyn/HsBinds.lhs
@@ -253,11 +253,13 @@ sigsForMe f sigs
     sig_for_me (SpecInstSig _ _)      	  = False
     sig_for_me (FixSig (FixitySig n _ _)) = f n
 
-nonFixitySigs :: [Sig name] -> [Sig name]
-nonFixitySigs sigs = filter not_fix sigs
- 		   where
-		     not_fix (FixSig _) = False
-		     not_fix other	= True
+isFixitySig :: Sig name -> Bool
+isFixitySig (FixSig _) = True
+isFixitySig _	       = False
+
+isClassOpSig :: Sig name -> Bool
+isClassOpSig (ClassOpSig _ _ _ _) = True
+isClassOpSig _			  = False
 \end{code}
 
 \begin{code}