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
122
123
124
125
126
127
|
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 -> ()
| 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
[@@@ocamlformat "break-infix-before-func=false"]
let foo =
match foo with
| 1 ->
bar >>= ( function
| _ -> () )
| other -> ()
let foo =
match foo with
| 1 ->
bar >>= ( function
| a -> fooooo
| b -> fooooo
| _ -> () )
| other -> ()
let foo =
match foo with
| 1 ->
bar >>= ( function
| a -> fooooo
| b -> fooooo
| c -> foooooooo foooooooooo fooooooooooooooooooo ()
| _ -> () )
| other -> ()
let _ =
match a with
| a ->
match a with
| a ->
let+ a = b in
(match a with
| a -> a)
let _ =
match a with
| a ->
match a with
| a ->
let+ a = b in
(match a with
| a -> a)
| b -> c
|
