aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/Parens/arrow-infix-chain-rhs.hs
{- ORACLE_TEST pass -}
{-# LANGUAGE Arrows #-}
module M where
import Control.Arrow
f a b c = proc x -> (a -< x) <+> (b -< x) <+> (c -< x)
{- ORACLE_TEST pass -}
{-# LANGUAGE Arrows #-}
module M where
import Control.Arrow
f a b c = proc x -> (a -< x) <+> (b -< x) <+> (c -< x)