1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
let x = [ 1; 2; 3; 4 ]
(* comments may move during normalization *)
let x =
(* a *)
[
1 (* b *);
(* c *)
2;
3;
4
(* d *)
(* e *);
]
(* f *)
(* comments preserved when the normalization cannot be done (attributes) *)
let x = (* a *) 1 (* b *) :: (* c *) 2 :: 3 :: 4 (* d *) :: (* e *) ([] [@attr])
(* f *)
(* comments preserved when no normalization required *)
let x = (* a *) [ (* b *) 1 (* c *); (* d *) 2; 3; 4 (* e *) ] (* f *)
let (x :: []) = e
let (x :: y) = e
let [ x; y ] = e
let (x :: y :: ([] [@attr])) = e
let [ x; (y [@attr]) ] = e
let (*a*) (x (*b*) :: (*c*) y (*d*)) = e
let
(*a*)
[
x (*b*);
(*c*)
y
(*d*)
(*e*);
] (*f*) =
e
let (*a*) (x (*b*) :: (*c*) y (*d*) :: (*e*) ([] [@attr])) (*f*) = e
let
(*a*)
[
x (*b*);
(*c*)
(y [@attr])
(*d*)
(*e*);
] (*f*) =
e
|
