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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
let _ = match a with A -> ( match b with B -> b | C -> c) | D -> D
let _ =
match a with
| AAAAAAAAAA -> (
match bbbbbbbbbbbbb with
| BBbbbbbbbbbbbbb -> bbbbbbbbbbbb
| CCCCCCCCCCCCCCcc -> ccccccccccccccccc)
| DDDDDDDDDDDDDDd -> DDDDDDDDDDDDDDDDdD
let _ =
match a with
| AAAAAAAAAA -> (
let x = 3 in
match bbbbbbbbbbbbb with
| BBbbbbbbbbbbbbb -> bbbbbbbbbbbb
| CCCCCCCCCCCCCCcc -> ccccccccccccccccc)
| DDDDDDDDDDDDDDd -> DDDDDDDDDDDDDDDDdD
let _ =
match x with
| _ -> (
match
something long enough to_break
_________________________________________________________________
with
| AAAAAAAAAA -> (
let x = 3 in
match bbbbbbbbbbbbb with
| BBbbbbbbbbbbbbb -> bbbbbbbbbbbb
| CCCCCCCCCCCCCCcc -> ccccccccccccccccc)
| DDDDDDDDDDDDDDd -> DDDDDDDDDDDDDDDDdD)
let x =
let g =
match x with
| `A -> (
fun id -> function
| A ->
e;
e
| _ -> ())
| `B -> (
fun id -> function
| A ->
e;
e
| _ -> ())
in
()
let x =
let g =
match x with
| `A -> ( fun id -> function A -> () | B -> ())
| `B -> ( fun id -> function A -> () | _ -> ())
in
()
let x =
let g =
match x with
| `A -> ( function A -> () | B -> ())
| `B -> ( function A -> () | _ -> ())
in
()
let x =
let g = match x with `A -> fun (A | B) -> () | `B -> fun (A | _) -> () in
()
let _ = match x with _ -> b >>= fun () -> c
let () = match () with _ -> ( fun _ : _ -> match () with _ -> ()) | _ -> ()
[@@@ocamlformat "nested-match=align"]
let () =
match f x with
| _ :: _ -> aaaaa aaaa a aa aaaaaa aaaa
| _ ->
match g y with
| _ :: _ :: _ :: _ -> bbb bbbbb bbbbbbb bbbb bbbb
| _ :: _ :: _ -> cc cccc cccc cccc cccc ccc cccccc cccc
| [] -> ff dda asa
let () =
match%ext1 f x with
| _ :: _ -> aaaaa aaaa a aa aaaaaa aaaa
| _ ->
match g y with
| _ :: _ :: _ :: _ -> bbb bbbbb bbbbbbb bbbb bbbb
| _ :: _ :: _ -> cc cccc cccc cccc cccc ccc cccccc cccc
| [] -> ff dda asa
let () =
match f x with
| _ :: _ -> aaaaa aaaa a aa aaaaaa aaaa
| _ ->
match%ext2 g y with
| _ :: _ :: _ :: _ -> bbb bbbbb bbbbbbb bbbb bbbb
| _ :: _ :: _ -> cc cccc cccc cccc cccc ccc cccccc cccc
| [] -> ff dda asa
let () =
match f x with
| _ :: _ -> aaaaa aaaa a aa aaaaaa aaaa
| _ ->
[%ext2
match g y with
| _ :: _ :: _ :: _ -> bbb bbbbb bbbbbbb bbbb bbbb
| _ :: _ :: _ -> cc cccc cccc cccc cccc ccc cccccc cccc
| [] -> ff dda asa]
let () =
match%ext1 f x with
| _ :: _ -> aaaaa aaaa a aa aaaaaa aaaa
| _ ->
match%ext2 g y with
| _ :: _ :: _ :: _ -> bbb bbbbb bbbbbbb bbbb bbbb
| _ :: _ :: _ -> cc cccc cccc cccc cccc ccc cccccc cccc
| [] -> ff dda asa
|
