aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/PatternSynonyms/pattern-synonyms-infix-backticks.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE PatternSynonyms #-}

module PatternSynonymsInfixBackticks where

data Pair a = Pair a a

pattern PairP :: a -> a -> Pair a
pattern x `PairP` y = Pair x y
infix 5 `PairP`

swap :: Pair a -> Pair a
swap (x `PairP` y) = y `PairP` x