7 lines
121 B
Haskell
7 lines
121 B
Haskell
{-# LANGUAGE PatternSynonyms #-}
|
|
module A where
|
|
|
|
data SomeType a b = SomeType (a,b)
|
|
|
|
pattern MyPat x y <- SomeType (x,y)
|