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

{- ORACLE_TEST pass -}
{-# LANGUAGE PatternSynonyms #-}
module A where

data T a = a :<| a

pattern x :> y <- x :<| y
  where
    (a :<| b) :> c = a :<| (b :<| c)