aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/Arrows/infix-expression-arrow-lhs.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE Arrows #-}
{-# LANGUAGE MagicHash #-}
{-# LANGUAGE UnboxedTuples #-}
module M where

f = proc x -> [] `a` [] -< let y = (# #) in 846#