diff options
| author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2006-10-22 17:40:19 +0000 |
|---|---|---|
| committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2006-10-22 17:40:19 +0000 |
| commit | f15029eafae8af530f359aeacd2c23d3f4d13a1b (patch) | |
| tree | 3275fe1435b7b2198860dfcf4c565606342a041c /testsuite/tests/ghc-regress/indexed-types/should_compile/ind2.hs | |
| parent | 58352225f6808b918f7f41ac8596712e68fcf23a (diff) | |
| download | haskell-f15029eafae8af530f359aeacd2c23d3f4d13a1b.tar.gz | |
Partitioned indexed-types tests into fail/compile/run dirs
Diffstat (limited to 'testsuite/tests/ghc-regress/indexed-types/should_compile/ind2.hs')
| -rw-r--r-- | testsuite/tests/ghc-regress/indexed-types/should_compile/ind2.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/ghc-regress/indexed-types/should_compile/ind2.hs b/testsuite/tests/ghc-regress/indexed-types/should_compile/ind2.hs new file mode 100644 index 0000000000..f4cf383ba8 --- /dev/null +++ b/testsuite/tests/ghc-regress/indexed-types/should_compile/ind2.hs @@ -0,0 +1,9 @@ +{-# OPTIONS -findexed-types #-} + +module ShouldCompile where + +import Ind2_help(C(..)) + +zipT :: (C a, C b) => T a -> T b -> T (a,b) +zipT x y = mkT (unT x, unT y) + |