path: root/testsuite/tests/patsyn/should_fail/as-pattern.hs

{-# LANGUAGE PatternSynonyms #-}
module ShouldFail where

pattern P x y <- x@(Just y)