X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fvectorise%2FVectorise%2FBuiltins%2FBase.hs;h=165dbdaad37123de7077b61d2399a54f672ead9d;hp=8e220706b2c345b576e8d05a49a794958c8807c5;hb=fdf8656855d26105ff36bdd24d41827b05037b91;hpb=3a7e2b3ad24b08dd68c96421d1ef94baa9b00c92

diff --git a/compiler/vectorise/Vectorise/Builtins/Base.hs b/compiler/vectorise/Vectorise/Builtins/Base.hs
index 8e22070..165dbda 100644
--- a/compiler/vectorise/Vectorise/Builtins/Base.hs
+++ b/compiler/vectorise/Vectorise/Builtins/Base.hs
@@ -33,7 +33,6 @@ import TysWiredIn
 import Type
 import TyCon
 import DataCon
-import Var
 import Outputable
 import Data.Array
 
@@ -61,9 +60,12 @@ data Builtins
         , parrayTyCon      :: TyCon			-- ^ PArray
         , parrayDataCon    :: DataCon			-- ^ PArray
         , pdataTyCon       :: TyCon			-- ^ PData
+        , paClass          :: Class                     -- ^ PA
         , paTyCon          :: TyCon			-- ^ PA
         , paDataCon        :: DataCon			-- ^ PA
+        , paPRSel          :: Var                       -- ^ PA
         , preprTyCon       :: TyCon			-- ^ PRepr
+        , prClass          :: Class                     -- ^ PR
         , prTyCon          :: TyCon			-- ^ PR
         , prDataCon        :: DataCon			-- ^ PR
         , replicatePDVar   :: Var			-- ^ replicatePD