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
|
[@@@ocamlformat "module-item-spacing=compact"]
val z : this one is pretty looooooooooooooooooooooooooooooooooong
val z : so is this oooooooooooooooooooooooooooooooooooooooooooone
val f : k -> k -> k -> k -> k k -> k k -> k k
(** [f o o o o o o] is a great function. *)
val z : this one is pretty looooooooooooooooooooooooooooooooooong
val z : so is this oooooooooooooooooooooooooooooooooooooooooooone
val g : unit
val f :
aaaaaaaaaaaaaaaaaaaaaaaaaaaaa
-> bbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
-> cccccccccccccccccccccccc
-> dddddddddddd
val x : k
(** [x] is a great value. *)
val z : k
val y : k
(** [y] is a great value. *)
val z : this one is pretty looooooooooooooooooooooooooooooooooong
val z : so is this oooooooooooooooooooooooooooooooooooooooooooone
module A = AA
module B = BB
open AA
module C = CC
module type M = sig
val a : z
val b : zz
val c : zzz
end
val x : k
val y : k
val x : k
val y : k
type c = {a: int; b: toto; c: char * char * char; d: [`Foo | `Bar]}
val z : this one is pretty looooooooooooooooooooooooooooooooooong
val z : so is this oooooooooooooooooooooooooooooooooooooooooooone
type k = A | B | K of int * char * string | E
val x : k
val z : this one is short
val y : k
val w :
this one is toooooooooooooooooooooooooo looooooooooooooooooooooooog but is
originally
a
one_liner
val k : z
module type N = sig
val x : k
val z : soooooooooo is this oooooooooooooooooooooooooooooooooooooooooooone
val y : k
val z : soooooooooo iis this oooooooooooooooooooooooooooooooooooooooooooone
val y : k
module A = AA
include A
module B = BB
open B
end
[@@@ocamlformat "module-item-spacing=preserve"]
val cmos_rtc_seconds : foo
val cmos_rtc_seconds_alarm : foo
val cmos_rtc_minutes : foo
val x : foo
val log_other : foo
val log_cpu : foo
val log_fpu : foo
val cr0_pe : foo
val cr0_mp : foo
val cr0_em : foo
module C : sig
type config = t
type 'a t
type parsed_from = [`File of Fpath.t * int | `Attribute]
end
module A := A
module A := A.B
|
