X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcClassDcl.lhs;h=ad62de69af532126353e4980d8e08be5deede2fa;hb=508a505e9853984bfdaa3ad855ae3fcbc6d31787;hp=d5536a1b6b7f9ef74934432dacf923257614368d;hpb=f9d8c8e0ab44b24d06b654d98543e8b39d4ebeca;p=ghc-hetmet.git

diff --git a/ghc/compiler/typecheck/TcClassDcl.lhs b/ghc/compiler/typecheck/TcClassDcl.lhs
index d5536a1..ad62de6 100644
--- a/ghc/compiler/typecheck/TcClassDcl.lhs
+++ b/ghc/compiler/typecheck/TcClassDcl.lhs
@@ -246,7 +246,7 @@ tcClassDecl2 (L loc (ClassDecl {tcdLName = class_name, tcdSigs = sigs,
 	-- default methods.  Better to make separate AbsBinds for each
     let
 	(tyvars, _, _, op_items) = classBigSig clas
-	prags 			 = filter (isPragSig.unLoc) sigs
+	prags 			 = filter isPragLSig sigs
 	tc_dm			 = tcDefMeth clas tyvars default_binds prags
 
 	dm_sel_ids		 = [sel_id | (sel_id, DefMeth) <- op_items]