aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/Arrows/infix-in-do.hs

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

import Control.Arrow

expr' term = proc x -> do
  returnA -< x
  <+> do
    y <- term -< ()
    expr' term -< x + y