git.iko.soy/ormolu
on d82d607 help sign in
ormolu/data/examples/declaration/value/function/arrow/proc-do-simple.hs
39 lines 502 B history raw
1{-# LANGUAGE Arrows #-}
3foo f = proc a ->
4 do f -< a
6bar f = proc a ->
7 do b <- f -< a
9barbar f g = proc a ->
10 do b <- f -< a
11 returnA -< b
13barbaz f g = proc (a, b) ->
14 do c <- f -< a
15 d <- g -< b
17bazbar f = proc a ->
18 do a
19 <-
20 f
21 -<
22 a
24bazbaz f g h = proc (a, b, c) ->
25 do x
26 <- f b -< a
27 y <-
28 g b -< b
29 z <-
30 h
31 x
32 y
33 -< (
34 a,
35 b,
36 c
37 )
38 returnA -<
39 (x, y, z)