git.iko.soy/ormolu
on d82d607 help sign in
ormolu/data/examples/declaration/value/function/parallel-comprehensions.hs
28 lines 943 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,b,c,d,e,
7 f,g,h,i,j) |
8 a<- -- Foo 1
9 x, -- Foo 2
10 b<- -- Bar 1
11 y, -- Bar 2
12 a
13 `mod` b -- Value
14 == 0|
15 c<- -- Baz 1
16 z * -- Baz 2
17 z| -- Baz 3
18 d<- w | -- Other
19 e <- x * x | -- Foo bar
20 f -- Foo baz 1
21 <- y + y | -- Foo baz 2
22 h <- z + z * w ^ 2 | -- Bar foo
23 i <- -- Bar bar 1
24 a + -- Bar bar 2
25 b, -- Bar bar 3
26 j <- -- Bar baz 1
27 a + b -- Bar baz 2
28 ]