arrowapply2.hs 234 Bytes
Newer Older
1
{-# OPTIONS -farrows #-}
ross's avatar
ross committed
2
3
4
5
6
7
8
9
10
11

module ShouldCompile where

import Control.Arrow

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

g :: ArrowApply a => Int -> a (a Int Int,Int) Int
g y = proc (x,z) -> x -<< 2+y