Source

ocamlspot / tests / functor.ml

1
2
3
4
5
6
7
8
9
module F (A : sig val x : int end) = struct
  let y = A.x
end

module M = struct let x = 1 end

module N = F(M)

let _ = N.y