diff options
| author | Jose Pedro Magalhaes <jpm@cs.ox.ac.uk> | 2013-11-19 09:04:48 +0000 |
|---|---|---|
| committer | Jose Pedro Magalhaes <jpm@cs.ox.ac.uk> | 2013-11-19 09:04:59 +0000 |
| commit | 79034762edf684f33cf5e7b478f48726060be6f6 (patch) | |
| tree | e886740a0375d0173659d0a18ee0b9c911bdff3c /testsuite/tests/generics | |
| parent | e43a4124f47ef32056cdb85fb72f74cfe5b25f29 (diff) | |
| download | haskell-79034762edf684f33cf5e7b478f48726060be6f6.tar.gz | |
Include pairs in this test
Diffstat (limited to 'testsuite/tests/generics')
| -rw-r--r-- | testsuite/tests/generics/GFunctor/GFunctor.hs | 1 | ||||
| -rw-r--r-- | testsuite/tests/generics/GFunctor/GFunctor1.stdout | 2 | ||||
| -rw-r--r-- | testsuite/tests/generics/GFunctor/Main.hs | 5 |
3 files changed, 6 insertions, 2 deletions
diff --git a/testsuite/tests/generics/GFunctor/GFunctor.hs b/testsuite/tests/generics/GFunctor/GFunctor.hs index 0044339986..8dd33e5dcc 100644 --- a/testsuite/tests/generics/GFunctor/GFunctor.hs +++ b/testsuite/tests/generics/GFunctor/GFunctor.hs @@ -52,3 +52,4 @@ class GFunctor f where -- Base types instances instance GFunctor Maybe instance GFunctor [] +instance GFunctor ((,) a) diff --git a/testsuite/tests/generics/GFunctor/GFunctor1.stdout b/testsuite/tests/generics/GFunctor/GFunctor1.stdout index 966a02092e..f1b9ac2422 100644 --- a/testsuite/tests/generics/GFunctor/GFunctor1.stdout +++ b/testsuite/tests/generics/GFunctor/GFunctor1.stdout @@ -1 +1 @@ -(D0,D1 {d11 = 'q', d12 = D0},D1 {d11 = 3.14, d12 = D0}) +(Just 3,[1,2,3],(0,1),D0,D1 {d11 = 'q', d12 = D0},D1 {d11 = 3.14, d12 = D0}) diff --git a/testsuite/tests/generics/GFunctor/Main.hs b/testsuite/tests/generics/GFunctor/Main.hs index 7d0a3df636..e017d9474c 100644 --- a/testsuite/tests/generics/GFunctor/Main.hs +++ b/testsuite/tests/generics/GFunctor/Main.hs @@ -21,6 +21,9 @@ d2 = D1 (3,0.14) D0 instance GFunctor D -- Tests -main = print ( gmap undefined d0 :: D () +main = print ( gmap (+1) (Just 2) + , gmap (+1) [0,1,2] + , gmap (+1) (0,0) + , gmap undefined d0 :: D () , gmap (const 'q') d1 , gmap (\(a,b) -> a + b) d2 :: D Float) |