git.iko.soy/ormolu
on d82d607 help sign in
ormolu/data/examples/declaration/value/function/list-comprehensions.hs
22 lines 329 B history raw
1foo x = [a|a<-x]
3bar x y = [ (a, b) | a<-x, even a , b<-y, a != b ]
5barbaz x y z w = [
6 (a, b, c, d) | -- Foo
7 a <-
8 x, -- Bar
9 b<-y, -- Baz
10 any even [a, b],
11 c <- z *
12 z ^ 2, -- Bar baz
13 d <-
14 w
15 +
16 w, -- Baz bar
17 all
18 even [
19 a, b,
20 c, d
21 ]
22 ]