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
type 'a with_location = 'a Odoc_model.Location_.with_location
type style = [
| `Bold
| `Italic
| `Emphasis
| `Superscript
| `Subscript
]
type reference_kind = [ `Simple | `With_text ]
type inline_element = [
| `Space of string
| `Word of string
| `Code_span of string
| `Raw_markup of string option * string
| `Styled of style * (inline_element with_location) list
| `Reference of
reference_kind * string with_location * (inline_element with_location) list
| `Link of string * (inline_element with_location) list
]
type nestable_block_element = [
| `Paragraph of (inline_element with_location) list
| `Code_block of string
| `Verbatim of string
| `Modules of string with_location list
| `List of
[ `Unordered | `Ordered ] *
[ `Light | `Heavy ] *
((nestable_block_element with_location) list) list
]
type tag = [
| `Author of string
| `Deprecated of (nestable_block_element with_location) list
| `Param of string * (nestable_block_element with_location) list
| `Raise of string * (nestable_block_element with_location) list
| `Return of (nestable_block_element with_location) list
| `See of
[ `Url | `File | `Document ] *
string *
(nestable_block_element with_location) list
| `Since of string
| `Before of string * (nestable_block_element with_location) list
| `Version of string
| `Canonical of string with_location
| `Inline
| `Open
| `Closed
]
type block_element = [
| nestable_block_element
| `Heading of int * string option * (inline_element with_location) list
| `Tag of tag
]
type docs = (block_element with_location) list
type sections_allowed = [ `All | `No_titles | `None ]