aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/Hackage/pqueue-infix-pattern-synonym-where-clause.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE PatternSynonyms #-}
module A where
pattern (:<) :: (a, b) -> [(a, b)] -> [(a, b)]
pattern x :< xs <- (x : xs)
  where
    (a, b) :< xs = (a, b) : xs