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

diff --git a/compiler/vectorise/Vectorise/Builtins/Base.hs b/compiler/vectorise/Vectorise/Builtins/Base.hs
index 8e22070..5e4d47d 100644
--- a/compiler/vectorise/Vectorise/Builtins/Base.hs
+++ b/compiler/vectorise/Vectorise/Builtins/Base.hs
@@ -63,6 +63,7 @@ data Builtins
         , pdataTyCon       :: TyCon			-- ^ PData
         , paTyCon          :: TyCon			-- ^ PA
         , paDataCon        :: DataCon			-- ^ PA
+        , paPRSel          :: Var                       -- ^ PA
         , preprTyCon       :: TyCon			-- ^ PRepr
         , prTyCon          :: TyCon			-- ^ PR
         , prDataCon        :: DataCon			-- ^ PR