@@ -6,10 +6,10 @@ foo' xs ys =
66 [ ( x,
77 y
88 )
9− | x <- xs,
10− y <- ys,
11− -- First comment
12− then reverse -- Second comment
9+ | x <- xs,
10+ y <- ys,
11+ -- First comment
12+ then reverse -- Second comment
1313 ]
1414
1515bar xs ys = [(x, y) | x <- xs, y <- ys, then sortWith by (x + y)]
@@ -18,14 +18,14 @@ bar' xs ys =
1818 [ ( x,
1919 y
2020 )
21− | x <- xs,
22− y <- ys,
23− -- First comment
24− then sortWith
25− by
26− ( x +
27− y -- Second comment
28− )
21+ | x <- xs,
22+ y <- ys,
23+ -- First comment
24+ then sortWith
25+ by
26+ ( x +
27+ y -- Second comment
28+ )
2929 ]
3030
3131baz xs ys = [(x, y) | x <- xs, y <- ys, then group using permutations]
@@ -34,10 +34,10 @@ baz' xs ys =
3434 [ ( x,
3535 y
3636 )
37− | x <- xs,
38− y <- ys,
39− -- First comment
40− then group using permutations -- Second comment
37+ | x <- xs,
38+ y <- ys,
39+ -- First comment
40+ then group using permutations -- Second comment
4141 ]
4242
4343quux xs ys = [(x, y) | x <- xs, y <- ys, then group by (x + y) using groupWith]
@@ -46,13 +46,13 @@ quux' xs ys =
4646 [ ( x,
4747 y
4848 )
49− | x <- xs,
50− y <- ys,
51− -- First comment
52− then group by
53− ( x +
54− y
55− )
56− -- Second comment
57− using groupWith -- Third comment
49+ | x <- xs,
50+ y <- ys,
51+ -- First comment
52+ then group by
53+ ( x +
54+ y
55+ )
56+ -- Second comment
57+ using groupWith -- Third comment
5858 ]