X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FuniType%2FClass.lhs;h=4d61be968c14983d483bd6e166600fb0a8664716;hb=b52838bcf54a3d5d07cf29f17f3af6f584fc0f4e;hp=ca6c2ce4d364b3760cd7d4db38df7e953cf3da31;hpb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;p=ghc-hetmet.git

diff --git a/ghc/compiler/uniType/Class.lhs b/ghc/compiler/uniType/Class.lhs
index ca6c2ce..4d61be9 100644
--- a/ghc/compiler/uniType/Class.lhs
+++ b/ghc/compiler/uniType/Class.lhs
@@ -154,7 +154,7 @@ getConstMethodId (MkClass _ _ _ _ _ ops op_ids _ _ _) op ty
     let
 	sel_id = op_ids !! (getClassOpTag op - 1)
     in
-    case (lookupConstMethodId (getIdSpecialisation sel_id) ty) of
+    case (lookupConstMethodId sel_id ty) of
       Just xx -> xx
       Nothing -> error (ppShow 80 (ppAboves [
 	ppCat [ppStr "ERROR: getConstMethodId:", ppr PprDebug op, ppr PprDebug ty, ppr PprDebug ops, ppr PprDebug op_ids, ppr PprDebug sel_id],