diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2014-06-05 12:26:24 +0100 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-07-03 10:19:51 -0500 |
| commit | 1a7c07b01e6d4ccb5987341f0bee3fbfbed0fb9b (patch) | |
| tree | 673f9e053f4730b0c34ab27777ed00857293b9f6 | |
| parent | abb884fba135b8f0e002ef9cd78311ed9afe521c (diff) | |
| download | haskell-1a7c07b01e6d4ccb5987341f0bee3fbfbed0fb9b.tar.gz | |
Test Trac #9023
(cherry picked from commit 616f54bdc28ad699f903248a5fb18dc0e5b52a52)
| -rw-r--r-- | testsuite/tests/patsyn/should_compile/T9023.hs | 6 | ||||
| -rw-r--r-- | testsuite/tests/patsyn/should_compile/all.T | 1 |
2 files changed, 7 insertions, 0 deletions
diff --git a/testsuite/tests/patsyn/should_compile/T9023.hs b/testsuite/tests/patsyn/should_compile/T9023.hs new file mode 100644 index 0000000000..3a8614009f --- /dev/null +++ b/testsuite/tests/patsyn/should_compile/T9023.hs @@ -0,0 +1,6 @@ +{-# LANGUAGE PatternSynonyms #-} + +module T9023 where + +pattern P a b = Just (a, b) +foo P{} = True diff --git a/testsuite/tests/patsyn/should_compile/all.T b/testsuite/tests/patsyn/should_compile/all.T index ecc4701661..d851bc3ac8 100644 --- a/testsuite/tests/patsyn/should_compile/all.T +++ b/testsuite/tests/patsyn/should_compile/all.T @@ -9,3 +9,4 @@ test('num', normal, compile, ['']) test('incomplete', normal, compile, ['']) test('export', normal, compile, ['']) test('T8966', normal, compile, ['']) +test('T9023', normal, compile, ['']) |