Source

ocamlspot / tests / variant.ml

1
2
3
4
5
module M = struct
  type t = (* M.t => *) Foo (* <= M.t *) of int 
end

let _ = M.Foo (* ? M.t *) 1