blob: 95846b0a19adafc6972780bb383f0a30f198bd7a (
plain)
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
|
(* TEST
* ocamldoc with html
*)
(** Test the rendering of alerts. *)
val a : int
[@@alert foo "bar"]
(** Documentation after. *)
(** Documentation before. *)
val b : int
[@@alert foo "bar"]
(* No documentation. *)
val c : int
[@@alert foo "bar"]
(** The deprecated attribute. *)
val d : int
[@@deprecated "foo"]
val d' : int
[@@alert deprecated "foo"]
(** No payload *)
val e : int
[@@deprecated]
val f : int
[@@alert foo]
(** Both deprecated tag and alert *)
val g : int
[@@deprecated "foo"]
(** @deprecated bar *)
(** Constructors and fields and other items. *)
type r = { x : int [@deprecated "foo"] }
type v = C [@deprecated "foo"]
type t [@@deprecated "foo"]
exception E [@deprecated "foo"]
external f : int -> int = "" [@@deprecated "foo"]
type e = ..
type e += Ext [@@deprecated "foo"]
type e += Ext2 [@deprecated "foo"]
|