path: root/testsuite/tests/ghc-regress/arrows/should_compile/arrowapply1.hs

{-# LANGUAGE Arrows #-}

module ShouldCompile where

import Control.Arrow

f :: Arrow a => a (Int,Int,Int) Int
f = proc (x,y,z) -> returnA -< x+y