git.iko.soy/ormolu
on d82d607 help sign in
ormolu/data/examples/declaration/value/function/parallel-comprehensions-out.hs
37 lines 631 B history raw
1foo x y = [(a, b) | a <- x | b <- y]
3bar x y z w = [(a, b, c, d) | a <- x, b <- y, a `mod` b == 0 | c <- z | d <- w]
5baz x y z w =
6 [ ( a
7 , b
8 , c
9 , d
10 , e
11 , f
12 , g
13 , h
14 , i
15 , j
16 )
17 | a <- -- Foo 1
18 x -- Foo 2
19 , b <- -- Bar 1
20 y -- Bar 2
21 , a `mod`
22 b == -- Value
23 0
24 | c <- -- Baz 1
25 z * -- Baz 2
26 z -- Baz 3
27 | d <- w -- Other
28 | e <- x * x -- Foo bar
29 | f <- -- Foo baz 1
30 y + y -- Foo baz 2
31 | h <- z + z * w ^ 2 -- Bar foo
32 | i <- -- Bar bar 1
33 a + -- Bar bar 2
34 b -- Bar bar 3
35 , j <- -- Bar baz 1
36 a + b -- Bar baz 2
37 ]