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
|
(** A module type. *)
module type Something = sig
val something : unit
(** {1 Something 1}
foo *)
val foo : unit
(** {2 Something 2} *)
val bar : unit
(** foo bar *)
(** {1 Something 1-bis}
Some text. *)
end
(** Let's include {!Something} once *)
include Something (** @inline *)
(** {1 Second include}
Let's include {!Something} a second time: the heading level should be shift here. *)
include Something (** @inline *)
(** {2 Third include}
Shifted some more. *)
include Something (** @inline *)
(** And let's include it again, but without inlining it this time: the ToC
shouldn't grow. *)
include Something
|
