aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/Arrows/unicode-fat-arrow-right.hs

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

import Control.Arrow

f g h = proc x → do
  y ← g ⤙ x
  h ⤙ y