From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Wed, 18 Jul 2007 04:50:51 +0000 (+0000)
Subject: Better names for PArray instance coercions
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6789720ce2765f7f9b395e86447ea7c0b14df64e;p=ghc-hetmet.git

Better names for PArray instance coercions
---

diff --git a/compiler/vectorise/VectType.hs b/compiler/vectorise/VectType.hs
index 5dceb3b..15b2a5b 100644
--- a/compiler/vectorise/VectType.hs
+++ b/compiler/vectorise/VectType.hs
@@ -201,7 +201,7 @@ buildPArrayParentInfo :: Name -> TyCon -> TyCon -> VM TyConParent
 buildPArrayParentInfo orig_name vect_tc repr_tc
   = do
       parray_tc <- builtin parrayTyCon
-      co_name <- cloneName mkInstTyCoOcc orig_name
+      co_name <- cloneName mkInstTyCoOcc (tyConName repr_tc)
 
       let inst_tys = [mkTyConApp vect_tc (map mkTyVarTy tyvars)]