[commit: ghc] master: Add source file for new test that checks that as-patterns are rejected in pattern synonym definitions (dd3a6d2)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/dd3a6d270f827a59f7a33f32facc506cb35af1fa/ghc

>---------------------------------------------------------------

commit dd3a6d270f827a59f7a33f32facc506cb35af1fa
Author: Dr. ERDI Gergo <gergo at erdi.hu>
Date:   Sat Apr 12 16:35:44 2014 +0800

    Add source file for new test that checks that as-patterns are rejected
    in pattern synonym definitions


>---------------------------------------------------------------

dd3a6d270f827a59f7a33f32facc506cb35af1fa
 testsuite/tests/patsyn/should_fail/{unidir.hs => as-pattern.hs} |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/testsuite/tests/patsyn/should_fail/unidir.hs b/testsuite/tests/patsyn/should_fail/as-pattern.hs
similarity index 67%
copy from testsuite/tests/patsyn/should_fail/unidir.hs
copy to testsuite/tests/patsyn/should_fail/as-pattern.hs
index 020fc12..2794bed 100644
--- a/testsuite/tests/patsyn/should_fail/unidir.hs
+++ b/testsuite/tests/patsyn/should_fail/as-pattern.hs
@@ -1,4 +1,4 @@
 {-# LANGUAGE PatternSynonyms #-}
 module ShouldFail where
 
-pattern Head x = x:_
+pattern P x y <- x@(Just y)