diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2010-06-07 01:26:42 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2010-06-07 01:26:42 +0000 |
| commit | 9d94dcd4dbb3e77d6938f8a7f59187f04663241b (patch) | |
| tree | 839db00af39c97c0c5e1610a61141219158cbfc0 /compiler | |
| parent | 04a0cea56816d1d9a2407c1c087bd864785aa44d (diff) | |
| download | haskell-9d94dcd4dbb3e77d6938f8a7f59187f04663241b.tar.gz | |
Track changes to DPH libs
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/vectorise/VectBuiltIn.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/compiler/vectorise/VectBuiltIn.hs b/compiler/vectorise/VectBuiltIn.hs index fbc2932343..9d1e7a1aa1 100644 --- a/compiler/vectorise/VectBuiltIn.hs +++ b/compiler/vectorise/VectBuiltIn.hs @@ -42,7 +42,7 @@ import TysWiredIn ( unitDataCon, doubleTyCon, boolTyCon, trueDataCon, falseDataCon, parrTyConName ) -import PrelNames ( word8TyConName, gHC_PARR ) +import PrelNames ( word8TyConName, gHC_PARR, gHC_CLASSES ) import BasicTypes ( Boxity(..) ) import FastString @@ -459,6 +459,10 @@ preludeVars (Modules { dph_Combinators = dph_Combinators [ mk dph_Prelude_Bool (fsLit "andP") dph_Prelude_Bool (fsLit "andPA") , mk dph_Prelude_Bool (fsLit "orP") dph_Prelude_Bool (fsLit "orPA") + , mk gHC_CLASSES (fsLit "not") dph_Prelude_Bool (fsLit "notV") + , mk gHC_CLASSES (fsLit "&&") dph_Prelude_Bool (fsLit "andV") + , mk gHC_CLASSES (fsLit "||") dph_Prelude_Bool (fsLit "orV") + -- FIXME: temporary , mk dph_Prelude_PArr (fsLit "fromPArrayP") dph_Prelude_PArr (fsLit "fromPArrayPA") , mk dph_Prelude_PArr (fsLit "toPArrayP") dph_Prelude_PArr (fsLit "toPArrayPA") @@ -466,6 +470,7 @@ preludeVars (Modules { dph_Combinators = dph_Combinators , mk dph_Prelude_PArr (fsLit "combineP") dph_Combinators (fsLit "combine2PA") , mk dph_Prelude_PArr (fsLit "updateP") dph_Combinators (fsLit "updatePA") , mk dph_Prelude_PArr (fsLit "bpermuteP") dph_Combinators (fsLit "bpermutePA") + , mk dph_Prelude_PArr (fsLit "indexedP") dph_Combinators (fsLit "indexedPA") ] where mk = (,,,) |