aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/Arrows/operator-dollar-left-of-arrow.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE Arrows #-}
module ArrowOperatorDollarLeftOfArrow where

import Control.Arrow

f g h = proc x -> do
  y <- g $ h -< x
  returnA -< y