arrowapply3.hs 136 Bytes
Newer Older
1
{-# OPTIONS -farrows #-}
ross's avatar
ross committed
2
3
4
5
6
7

module ShouldCompile where

import Control.Arrow

g :: Arrow a => a Int c -> a Int c
ross's avatar
ross committed
8
g f = proc b -> f -< b+2