2cae331 · ormolu · git.iko.soy

data/examples/declaration/value/function/arithmetic-sequences-out.hs+12−2

compare with master

unifiedsplit

@@ -1,4 +1,6 @@

1−foo = [0..]

1+foo = [0 ..]

2+

3+foo' = [0 .. 5]

2

4

3bar x =

5bar x =

4 [ 0

6 [ 0

@@ -11,4 +13,12 @@ baz x =

11 .. x

13 .. x

12 ]

14 ]

13

15

14−barbaz x = [0, 1..]

16+barbaz x = [0, 1 ..]

17+

18+arst = [0 :: Int ..]

19+

20+brst = [0, 1 :: Int ..]

21+

22+crst = [0 :: Int .. 10]

23+

24+drst = [0, 1 :: Int .. 10]

data/examples/declaration/value/function/arithmetic-sequences.hs+5

@@ -1,4 +1,5 @@

1foo = [0..]

2+foo' = [0..5]

2bar x = [

3bar x = [

3 0..x

4 0..x

4 ]

5 ]

@@ -8,3 +9,7 @@ baz x = [

8 x

9 x

9 ]

10 ]

10barbaz x = [ 0, 1.. ]

11barbaz x = [ 0, 1.. ]

12+arst = [0 :: Int ..]

13+brst = [0, 1 :: Int ..]

14+crst = [0 :: Int .. 10]

15+drst = [0, 1 :: Int .. 10]

src/Ormolu/Printer/Meat/Declaration/Value.hs+4−4

@@ -581,20 +581,20 @@ p_hsExpr = \case

581 case x of

582 From from -> brackets $ do

583 located from p_hsExpr

584− breakpoint'

584+ breakpoint

585 txt ".."

586 FromThen from next -> brackets $ do

587 velt (withSep comma (located' p_hsExpr) [from, next])

588− breakpoint'

588+ breakpoint

589 txt ".."

590 FromTo from to -> brackets $ do

591 located from p_hsExpr

592− breakpoint'

592+ breakpoint

593 txt ".. "

594 located to p_hsExpr

595 FromThenTo from next to -> brackets $ do

596 velt (withSep comma (located' p_hsExpr) [from, next])

597− breakpoint'

597+ breakpoint

598 txt ".. "

599 located to p_hsExpr

600 HsSCC NoExt _ name x -> do