X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fvectorise%2FVectorise%2FType%2FPData.hs;h=332344bdc235c519f767399b0317494d4dec5317;hp=34c9bec1c1357273c3f08b48e83c85e5c30a68e9;hb=d2ce0f52d42edf32bb9f13796e6ba6edba8bd516;hpb=ddfe30b656d1211f77a1eef551ed475b4441eb6a

diff --git a/compiler/vectorise/Vectorise/Type/PData.hs b/compiler/vectorise/Vectorise/Type/PData.hs
index 34c9bec..332344b 100644
--- a/compiler/vectorise/Vectorise/Type/PData.hs
+++ b/compiler/vectorise/Vectorise/Type/PData.hs
@@ -33,6 +33,7 @@ buildPDataTyCon orig_tc vect_tc repr = fixV $ \repr_tc ->
                            rec_flag    -- FIXME: is this ok?
                            False       -- FIXME: no generics
                            False       -- not GADT syntax
+                           NoParentTyCon
                            (Just $ mk_fam_inst pdata vect_tc)
   where
     orig_name = tyConName orig_tc