aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/Arrows/proc-block-let-arrow-lhs.hs
{- ORACLE_TEST pass -}
{-# LANGUAGE Arrows #-}
{-# LANGUAGE BlockArguments #-}
module ProcBlockLetArrowLhs where
f g = proc x -> (g let { y = x } in y) -< ()
{- ORACLE_TEST pass -}
{-# LANGUAGE Arrows #-}
{-# LANGUAGE BlockArguments #-}
module ProcBlockLetArrowLhs where
f g = proc x -> (g let { y = x } in y) -< ()