ghc-mod/test/data/pattern-synonyms/A.hs

{-# LANGUAGE PatternSynonyms #-}

module A where

data SomeType a b = SomeType (a,b)

pattern MyPat x y <- SomeType (x,y)