blob: 1003b47f2df490c3c8a0b9b0c248a2954298a8b6 (
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
|
(* TEST
plugins="odoc_test.ml"
* ocamldoc
flags="-I ${ocamlsrcdir}/ocamldoc"
*)
(** Testing display of types.
@test_types_display
*)
let x = 1
module M = struct
let y = 2
end
module type MT = sig
type t = string -> int -> string -> (string * string * string) ->
(string * string * string) ->
(string * string * string) -> unit
val y : int
type ob = < f : int >
type obj_type =
< foo : int ; bar : float -> string ; ob ; gee : int -> (int * string) >
type g = [`A]
type h = [`B of int | g | `C of string]
end
|
