aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/Arrows/conditional-nested.hs

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

import Control.Arrow

f g h k = proc (x, y) -> do
  if True
    then if False
           then g -< x
           else h -< y
    else k -< x + y