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

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.