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 0000000000000000000000000000000000000000..2794bed16ae8c3e1e13cfb5a9933d6f5f7c6cc33 --- /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)