ghc-mod-5.8.0.0: 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)
{-# LANGUAGE PatternSynonyms #-}
module A where
data SomeType a b = SomeType (a,b)
pattern MyPat x y <- SomeType (x,y)