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
|
[@@@ocamlformat "disable"]
let this_won't_be_formatted =
1
[@@@ocamlformat "enable"]
let x = function
| A , B -> 1
| BBB , _ -> 2
| CCCcccc , CCCCCCCC -> 3
[@@ocamlformat "disable"]
let x = function A, B -> 1 | BBB, _ -> 2 | CCCcccc, CCCCCCCC -> 3
module S = struct
let x = function
| A , B -> 1
| BBB , _ -> 2
| CCCcccc , CCCCCCCC -> (* cmt about 3 *) 3
[@@ocamlformat "disable"]
end
module S = struct
let x = function
| A, B -> 1
| BBB, _ -> 2
| CCCcccc, CCCCCCCC -> (* cmt about 3 *) 3
let x = function
| A, B -> 1
| BBB, _ -> 2
| CCCcccc, CCCCCCCC -> (* cmt about 3 *) 3
[@@@ocamlformat "disable"]
let x = function
| A , B -> 1
| BBB , _ -> 2
| CCCcccc , CCCCCCCC -> (* cmt about 3 *) 3
[@@@ocamlformat "enable"]
let x = function
| A, B -> 1
| BBB, _ -> 2
| CCCcccc, CCCCCCCC -> (* cmt about 3 *) 3
let _ =
let x = 3 in
match[@ocamlformat "disable"] x,y with
| Some _, None -> test
| None , Some _ -> test
| Some _, Some _ -> test
| None , None -> test
end
let x = function
| A, B -> 1
| BBB, _ -> 2
| CCCcccc, CCCCCCCC -> (* cmt about 3 *) 3
module type S = sig
type t = int * int
[@@ocamlformat "disable"]
[@@@ocamlformat "disable"]
val x : a : t -> b: t
-> c : t -> unit
end
let x = fun fc ->
let x = 3 in
match x,y with
| Some _, None -> test
| None , Some _ -> test
| Some _, Some _ -> test
| None , None -> test
[@@ocamlformat "disable"]
let x =
fun[@ocamlformat "disable"] fc ->
let x = 3 in
match x,y with
| Some _, None -> test
| None , Some _ -> test
| Some _, Some _ -> test
| None , None -> test
let _ = (x [@ocamlformat "disable"] [@test? _ when e [@test 2]]) 3
let _ =
let module X = struct
let x = 4
end in
X.x
let _ =
let module X =
struct
let x = 4
end [@ocamlformat "disable"]
in
X.x
let _ =
let module X = struct
module S =
struct
let x = 4
end [@ocamlformat "disable"]
end in
X.x
|
