20 lines
290 B
OCaml
20 lines
290 B
OCaml
|
(** 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
|
||
|
|
end
|