X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fvectorise%2FVectorise%2FBuiltins%2FBase.hs;h=69ae84ff9d7c78af9ec4d5333b513d7403851e11;hb=9fb9395beebc5c6f85571991af7fd55b4db86977;hp=5e4d47d2368f90f302805af0c20f71cd7028f46d;hpb=4837a66d2d6a8a6db09067a3cd8c9038a9027a2d;p=ghc-hetmet.git

diff --git a/compiler/vectorise/Vectorise/Builtins/Base.hs b/compiler/vectorise/Vectorise/Builtins/Base.hs
index 5e4d47d..69ae84f 100644
--- a/compiler/vectorise/Vectorise/Builtins/Base.hs
+++ b/compiler/vectorise/Vectorise/Builtins/Base.hs
@@ -61,10 +61,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