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

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