diff options
| author | Dr. ERDI Gergo <gergo@erdi.hu> | 2014-04-12 16:35:44 +0800 |
|---|---|---|
| committer | Dr. ERDI Gergo <gergo@erdi.hu> | 2014-04-12 16:35:44 +0800 |
| commit | dd3a6d270f827a59f7a33f32facc506cb35af1fa (patch) | |
| tree | e7ccbd1352a4dd9bde4e759b91b69f8032cb64ee /testsuite | |
| parent | b7f51d60093ea13d0854bd7e1d4ecf58d12628a1 (diff) | |
| download | haskell-dd3a6d270f827a59f7a33f32facc506cb35af1fa.tar.gz | |
Add source file for new test that checks that as-patterns are rejected
in pattern synonym definitions
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/patsyn/should_fail/as-pattern.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/testsuite/tests/patsyn/should_fail/as-pattern.hs b/testsuite/tests/patsyn/should_fail/as-pattern.hs new file mode 100644 index 0000000000..2794bed16a --- /dev/null +++ b/testsuite/tests/patsyn/should_fail/as-pattern.hs @@ -0,0 +1,4 @@ +{-# LANGUAGE PatternSynonyms #-} +module ShouldFail where + +pattern P x y <- x@(Just y) |