X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fvectorise%2FVectorise%2FType%2FTyConDecl.hs;h=0fa8482d6b4a0afa716158c33c8ae662ba31a26a;hp=34ce559e5176be438a260f909dd2c163a47f2f2b;hb=d2ce0f52d42edf32bb9f13796e6ba6edba8bd516;hpb=0084ab49ab3c0123c4b7f9523d092af45bccfd41

diff --git a/compiler/vectorise/Vectorise/Type/TyConDecl.hs b/compiler/vectorise/Vectorise/Type/TyConDecl.hs
index 34ce559..0fa8482 100644
--- a/compiler/vectorise/Vectorise/Type/TyConDecl.hs
+++ b/compiler/vectorise/Vectorise/Type/TyConDecl.hs
@@ -84,6 +84,7 @@ vectTyConDecl tycon
                             rec_flag            -- FIXME: is this ok?
                             False               -- FIXME: no generics
                             False               -- not GADT syntax
+                            NoParentTyCon
                             Nothing             -- not a family instance
 
     -- some other crazy thing that we don't handle.