test/ocamldoc/t1.ml

   1 (** Testing display of types.
   2
   3    @test_types_display
   4  *)
   5
   6 let x = 1
   7
   8
   9 module M = struct
  10   let y = 2
  11
  12 end
  13
  14 module type MT = sig
  15   type t = string -> int -> string -> (string * string * string) ->
  16     (string * string * string) ->
  17       (string * string * string) -> unit
  18   val y : int
  19 end