git.iko.soy/ormolu
on master help sign in
Dedent parallel list comprehensions by one step
682a5f4yumiova
data/examples/declaration/value/function/parallel-comprehensions-out.hs+15−15
compare with master
unifiedsplit
@@ -21,19 +21,19 @@ baz x y z w =
21 a
21 a
22 `mod` b -- Value
22 `mod` b -- Value
23 == 0
23 == 0
24− | c <- -- Baz 1
24+ | c <- -- Baz 1
25− z
25+ z
26− * z -- Baz 2
26+ * z -- Baz 2
27− -- Baz 3
27+ -- Baz 3
28− | d <- w -- Other
28+ | d <- w -- Other
29− | e <- x * x -- Foo bar
29+ | e <- x * x -- Foo bar
30− | f <- -- Foo baz 1
30+ | f <- -- Foo baz 1
31− y + y -- Foo baz 2
31+ y + y -- Foo baz 2
32− | h <- z + z * w ^ 2 -- Bar foo
32+ | h <- z + z * w ^ 2 -- Bar foo
33− | i <- -- Bar bar 1
33+ | i <- -- Bar bar 1
34− a
34+ a
35− + b, -- Bar bar 2
35+ + b, -- Bar bar 2
36− -- Bar bar 3
36+ -- Bar bar 3
37− j <- -- Bar baz 1
37+ j <- -- Bar baz 1
38− a + b -- Bar baz 2
38+ a + b -- Bar baz 2
39 ]
39 ]
src/Ormolu/Printer/Meat/Declaration/Value.hs+1−1
@@ -563,7 +563,7 @@ p_hsExpr = \case
563 ub <- vlayout (return useBraces) (return id)
563 ub <- vlayout (return useBraces) (return id)
564 inci $ sepSemi (located' (ub . p_stmt)) (unLoc es)
564 inci $ sepSemi (located' (ub . p_stmt)) (unLoc es)
565 compBody = brackets $ located es $ \xs -> do
565 compBody = brackets $ located es $ \xs -> do
566− let p_parBody = sitcc . sep
566+ let p_parBody = sep
567 (breakpoint >> txt "| ")
567 (breakpoint >> txt "| ")
568 p_seqBody
568 p_seqBody
569 p_seqBody = sitcc . sep
569 p_seqBody = sitcc . sep