X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fvectorise%2FVectorise%2FType%2FPData.hs;h=b7bd95e9405640db9c2e21fef31a87d74e9a0861;hb=HEAD;hp=2541bc1289eefdcb637accfa0be383295904e299;hpb=907fa8af43e420e59ad1b78623f0ffe445c09e87;p=ghc-hetmet.git

diff --git a/compiler/vectorise/Vectorise/Type/PData.hs b/compiler/vectorise/Vectorise/Type/PData.hs
index 2541bc1..b7bd95e 100644
--- a/compiler/vectorise/Vectorise/Type/PData.hs
+++ b/compiler/vectorise/Vectorise/Type/PData.hs
@@ -12,7 +12,6 @@ import BuildTyCl
 import DataCon
 import TyCon
 import Type
-import OccName
 import Name
 import Util
 import MonadUtils
@@ -32,8 +31,8 @@ buildPDataTyCon orig_tc vect_tc repr = fixV $ \repr_tc ->
                            []          -- no stupid theta
                            rhs
                            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