diff options
| author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2012-01-15 22:12:19 +1100 |
|---|---|---|
| committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2012-01-16 00:05:40 +1100 |
| commit | 5601845d54bb0181f64bd807d6a6a8fc0a2c4f02 (patch) | |
| tree | 0665108bf984451cd7e63e1df9454e3483565d68 /testsuite/tests | |
| parent | 0a797ea3dfc39ee98243d5d24f87e78d990c2fa2 (diff) | |
| download | haskell-5601845d54bb0181f64bd807d6a6a8fc0a2c4f02.tar.gz | |
Adapt 'dph-classes' to class support in dph-lifted-vseg
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/dph/classes/DefsVect.hs | 19 |
1 files changed, 5 insertions, 14 deletions
diff --git a/testsuite/tests/dph/classes/DefsVect.hs b/testsuite/tests/dph/classes/DefsVect.hs index a424acde2d..f6ed5544e2 100644 --- a/testsuite/tests/dph/classes/DefsVect.hs +++ b/testsuite/tests/dph/classes/DefsVect.hs @@ -4,26 +4,12 @@ module DefsVect where import Data.Array.Parallel -import Data.Array.Parallel.Prelude.Bool -import Data.Array.Parallel.Prelude.Int (Int, sumP) -{-# VECTORISE class Eq #-} -{-# VECTORISE SCALAR instance Eq Bool #-} -- {-# VECTORISE SCALAR instance Eq Char #-} -{-# VECTORISE SCALAR instance Eq Int #-} -{-# VECTORISE SCALAR instance Eq Word8 #-} -- {-# VECTORISE SCALAR instance Eq Float #-} -{-# VECTORISE SCALAR instance Eq Double #-} -{-# VECTORISE SCALAR instance Eq Ordering #-} -{-# VECTORISE class Ord #-} -{-# VECTORISE SCALAR instance Ord Bool #-} -- {-# VECTORISE SCALAR instance Ord Char #-} -{-# VECTORISE SCALAR instance Ord Int #-} -{-# VECTORISE SCALAR instance Ord Word8 #-} -- {-# VECTORISE SCALAR instance Ord Float #-} -{-# VECTORISE SCALAR instance Ord Double #-} -{-# VECTORISE SCALAR instance Ord Ordering #-} data MyBool = MyTrue | MyFalse @@ -31,6 +17,11 @@ data MyBool = MyTrue | MyFalse class Eq a => Cmp a where cmp :: a -> a -> Bool +-- FIXME: +-- instance Cmp Int where +-- cmp = (==) + +-- isFive :: (Eq a, Num a) => a -> Bool isFive :: Int -> Bool isFive x = x == 5 |