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

{- ORACLE_TEST pass -}
{-# LANGUAGE Arrows, UnicodeSyntax #-}
module ArrowUnicodeConditional where

import Control.Arrow

f g h = proc (x, y) → do
  if True
    then g ⤙ x + 1
    else h ⤙ y + 2