Dedent parallel list comprehensions by one step
commit682a5f4672504dbc9aa756980fc4456737f7b06e
authoryumiova <yumiova@protonmail.ch>
dateThu 15 Aug 2019, 16:39 (7 years ago)
parent159e5e7
data/examples/declaration/value/function/parallel-comprehensions-out.hs+15−15
@@ -21,19 +21,19 @@ baz x y z w =
2121 a
2222 `mod` b -- Value
2323 == 0
24− | c <- -- Baz 1
25− z
26− * z -- Baz 2
27− -- Baz 3
28− | d <- w -- Other
29− | e <- x * x -- Foo bar
30− | f <- -- Foo baz 1
31− y + y -- Foo baz 2
32− | h <- z + z * w ^ 2 -- Bar foo
33− | i <- -- Bar bar 1
34− a
35− + b, -- Bar bar 2
36− -- Bar bar 3
37− j <- -- Bar baz 1
38− a + b -- Bar baz 2
24+ | c <- -- Baz 1
25+ z
26+ * z -- Baz 2
27+ -- Baz 3
28+ | d <- w -- Other
29+ | e <- x * x -- Foo bar
30+ | f <- -- Foo baz 1
31+ y + y -- Foo baz 2
32+ | h <- z + z * w ^ 2 -- Bar foo
33+ | i <- -- Bar bar 1
34+ a
35+ + b, -- Bar bar 2
36+ -- Bar bar 3
37+ j <- -- Bar baz 1
38+ a + b -- Bar baz 2
3939 ]
src/Ormolu/Printer/Meat/Declaration/Value.hs+1−1
@@ -563,7 +563,7 @@ p_hsExpr = \case
563563 ub <- vlayout (return useBraces) (return id)
564564 inci $ sepSemi (located' (ub . p_stmt)) (unLoc es)
565565 compBody = brackets $ located es $ \xs -> do
566− let p_parBody = sitcc . sep
566+ let p_parBody = sep
567567 (breakpoint >> txt "| ")
568568 p_seqBody
569569 p_seqBody = sitcc . sep