diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-08-16 11:18:43 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-08-16 11:18:43 +0100 |
| commit | bfbc4f87540679fdb5cdfcb63ded4ebd6d9b3d54 (patch) | |
| tree | 1ca10f484f2e1878d0f60ba0e11980bb972ee75a /testsuite/tests/rename/should_compile | |
| parent | b17b14cd7ce7a793ba7ed42f063aabbfef608819 (diff) | |
| download | haskell-bfbc4f87540679fdb5cdfcb63ded4ebd6d9b3d54.tar.gz | |
Test Trac #6038
Diffstat (limited to 'testsuite/tests/rename/should_compile')
| -rw-r--r-- | testsuite/tests/rename/should_compile/T6038.hs | 7 | ||||
| -rw-r--r-- | testsuite/tests/rename/should_compile/all.T | 1 |
2 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/rename/should_compile/T6038.hs b/testsuite/tests/rename/should_compile/T6038.hs new file mode 100644 index 0000000000..8478cd51b3 --- /dev/null +++ b/testsuite/tests/rename/should_compile/T6038.hs @@ -0,0 +1,7 @@ +{-# LANGUAGE ViewPatterns, BangPatterns #-} + +module T6038 where + +data T = MkT { x,y :: Int } + +f (MkT { x = !v, y = negate -> w }) = v + w diff --git a/testsuite/tests/rename/should_compile/all.T b/testsuite/tests/rename/should_compile/all.T index f96c07d901..4ec6ea5f17 100644 --- a/testsuite/tests/rename/should_compile/all.T +++ b/testsuite/tests/rename/should_compile/all.T @@ -195,3 +195,4 @@ test('T7007', normal, compile, ['']) test('T7085', normal, compile, ['']) test('T7145a', normal, compile, ['-Wall -Werror']) test('T7145b', normal, compile, ['-Wall']) +test('T6038', normal, compile, ['']) |