pb0.ml 215 Bytes
Newer Older
SimonHalfon's avatar
SimonHalfon committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
(* Ce que j'aurais voulu, c'est une sorte de polymorphisme de foncteurs *)

module Id (A: sig end) = A


module A =
  struct
    type nadine = int
    let cuisine = 12
  end ;;

module B = Id(A) ;;

B.cuisine ;;