types - 如何在 OCaml 中定义两个相互链接的模块？

Question

我知道我们可以定义两个相互链接的类型，例如:

type a =
   | CC of b

and b =
   | CD of a

有谁知道如何对两个模块做同样的事情？

module A = struct
  type t = | CC of B.t
end

?and? B = struct
  type t = | CD of A.t
end

Answer 1

它叫做 recursive modules在 OCaml 中。有点不幸，你必须写两次类型声明。

module rec A: sig
  type t = | CC of B.t
end = 
struct  
  type t = | CC of B.t
end

and B: sig 
  type t = | CD of A.t
end = 
struct
  type t = | CD of A.t
end