Remove the hasGenerics field of TyCon, improve the way the Generics flags is handled...

[ghc-hetmet.git] / compiler / vectorise / Vectorise / Type / PData.hs

diff --git a/compiler/vectorise/Vectorise/Type/PData.hs b/compiler/vectorise/Vectorise/Type/PData.hs
index 72a6163..b7bd95e 100644 (file)
--- a/compiler/vectorise/Vectorise/Type/PData.hs
+++ b/compiler/vectorise/Vectorise/Type/PData.hs
@@ -2,17 +2,16 @@
 module Vectorise.Type.PData
        (buildPDataTyCon)
 where
-import VectUtils
 import Vectorise.Monad
 import Vectorise.Builtins
 import Vectorise.Type.Repr
+import Vectorise.Utils
 
 import BasicTypes
 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