Skip to content

GitLab

Switch branch/tag
Find file Normal viewHistoryPermalink
arrowdo1.hs 332 Bytes
Newer Older
Ian Lynagh's avatar
Avoid using deprecated flags in the testsuite tests    
Ian Lynagh committed
1 
{-# LANGUAGE Arrows #-}
ross's avatar
[project @ 2003-06-19 08:50:40 by ross]    
ross committed
2
3
4
5
6 

module ShouldCompile where

import Control.Arrow
ross's avatar
[project @ 2003-06-20 23:31:22 by ross]    
ross committed
7
8 
f :: Arrow a => a (Int,Int,Int) Int
f = proc (x,y,z) -> returnA -< x+y
ross's avatar
[project @ 2003-06-19 08:50:40 by ross]    
ross committed
9
ross's avatar
[project @ 2003-06-20 23:31:22 by ross]    
ross committed
10
11 
g :: Arrow a => Int -> a Int Int
g x = proc y -> returnA -< x*y
ross's avatar
[project @ 2003-06-19 08:50:40 by ross]    
ross committed
12
13
14 

h :: Arrow a => Int -> a (Int,Int) Int
h x = proc (y,z) -> do
ross's avatar
[project @ 2003-06-20 23:31:22 by ross]    
ross committed
15
16 
	a <- f -< (x,y,3)
	b <- g (2+x) -< y+a
ross's avatar
[project @ 2003-06-19 08:50:40 by ross]    
ross committed
17 
	returnA -< a*b+z