X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fvectorise%2FVectorise%2FType%2FRepr.hs;h=bb300ca8636edb8de2289a802c28530c9d333fbd;hp=40242ae20a26df856c0404f8b5a718f9b2b3fcb1;hb=ff3bfae6010625b7ffe96bc62e8e139870684600;hpb=869984cd0306c18dcd103b9ef7dd315573dc3c6d

diff --git a/compiler/vectorise/Vectorise/Type/Repr.hs b/compiler/vectorise/Vectorise/Type/Repr.hs
index 40242ae..bb300ca 100644
--- a/compiler/vectorise/Vectorise/Type/Repr.hs
+++ b/compiler/vectorise/Vectorise/Type/Repr.hs
@@ -82,7 +82,7 @@ tyConRepr tc = sum_repr (tyConDataCons tc)
       where
         arity = length tys
     
-    comp_repr ty = liftM (Keep ty) (prDictOfType ty)
+    comp_repr ty = liftM (Keep ty) (prDictOfReprType ty)
                    `orElseV` return (Wrap ty)
 
 sumReprType :: SumRepr -> VM Type