aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/Arrows/infix-simple.hs
{- ORACLE_TEST pass -}
{-# LANGUAGE Arrows #-}
module ArrowInfixSimple where
import Control.Arrow
f g h = proc x -> (g -< x) <+> (h -< x + 1)
{- ORACLE_TEST pass -}
{-# LANGUAGE Arrows #-}
module ArrowInfixSimple where
import Control.Arrow
f g h = proc x -> (g -< x) <+> (h -< x + 1)