X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fvectorise%2FVectorise%2FType%2FPRepr.hs;h=1556626690231ecf364f33e41fdee26b1e4bef8b;hb=fff1f6194c3c39de53cd645bda9865fb131b1c68;hp=81edaab2f88ef48b3af8704835c119747c64734d;hpb=907fa8af43e420e59ad1b78623f0ffe445c09e87;p=ghc-hetmet.git

diff --git a/compiler/vectorise/Vectorise/Type/PRepr.hs b/compiler/vectorise/Vectorise/Type/PRepr.hs
index 81edaab..1556626 100644
--- a/compiler/vectorise/Vectorise/Type/PRepr.hs
+++ b/compiler/vectorise/Vectorise/Type/PRepr.hs
@@ -41,6 +41,7 @@ buildPReprTyCon orig_tc vect_tc repr
                              tyvars
                              (SynonymTyCon rhs_ty)
 			     (typeKind rhs_ty)
+                             NoParentTyCon
                              (Just $ mk_fam_inst prepr_tc vect_tc)
   where
     tyvars = tyConTyVars vect_tc