haskell-tools-builtin-refactorings-1.0.0.0: test/ExtensionOrganizerTest/PatternSynonymsTest/UniDirectional.hs

{-# LANGUAGE PatternSynonyms #-}

module UniDirectional where

pattern X :: a -> b -> c -> (a,b,c) {-* PatternSynonyms *-}
pattern X a b c <- (a,b,c)          {-* PatternSynonyms *-}