aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/UnboxedSums/pattern.hs
{- ORACLE_TEST pass -}
{-# LANGUAGE UnboxedSums #-}
module Pattern where
f x = case x of
(# | y #) -> y
(# y | #) -> y{- ORACLE_TEST pass -}
{-# LANGUAGE UnboxedSums #-}
module Pattern where
f x = case x of
(# | y #) -> y
(# y | #) -> y