aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/Parens/proc-case-guard.hs
{- ORACLE_TEST pass -}
{-# LANGUAGE Arrows #-}
module M where
x = case () of _ | proc _ -> a -<< () -> ()
{- ORACLE_TEST pass -}
{-# LANGUAGE Arrows #-}
module M where
x = case () of _ | proc _ -> a -<< () -> ()