[project @ 1996-01-18 16:33:17 by partain]

[ghc-hetmet.git] / ghc / compiler / uniType / Class.lhs

diff --git a/ghc/compiler/uniType/Class.lhs b/ghc/compiler/uniType/Class.lhs
index ca6c2ce..4d61be9 100644 (file)
--- 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],