[project @ 2005-02-28 16:02:57 by simonpj]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcClassDcl.lhs

diff --git a/ghc/compiler/typecheck/TcClassDcl.lhs b/ghc/compiler/typecheck/TcClassDcl.lhs
index d5536a1..a1015f0 100644 (file)
--- a/ghc/compiler/typecheck/TcClassDcl.lhs
+++ b/ghc/compiler/typecheck/TcClassDcl.lhs
@@ -18,7 +18,7 @@ import RnHsSyn                ( maybeGenericMatch, extractHsTyVars )
 import RnExpr          ( rnLExpr )
 import RnEnv           ( lookupTopBndrRn, lookupImportedName )
 
-import Inst            ( Inst, InstOrigin(..), instToId, newDicts, newDictsAtLoc, newMethod )
+import Inst            ( instToId, newDicts, newDictsAtLoc, newMethod )
 import TcEnv           ( tcLookupLocatedClass, tcExtendIdEnv2, 
                          tcExtendTyVarEnv, 
                          InstInfo(..), pprInstInfoDetails,
@@ -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]