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

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