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

[git at git.haskell.org]

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

On branch  : ghc-7.8
Link       : http://ghc.haskell.org/trac/ghc/changeset/87504d68b4fdfb9e9ac2915f8a68864025abdadd/ghc

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

commit 87504d68b4fdfb9e9ac2915f8a68864025abdadd
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
    
    (cherry picked from commit dd3a6d270f827a59f7a33f32facc506cb35af1fa)


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

87504d68b4fdfb9e9ac2915f8a68864025abdadd
 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)