Remove extra module from Vfile_kind functor
Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
parent
2071ac1072
commit
3177404741
|
@ -534,10 +534,10 @@ end
|
||||||
module Pkg_version = struct
|
module Pkg_version = struct
|
||||||
open Build.O
|
open Build.O
|
||||||
|
|
||||||
module V = Vfile_kind.Make(struct type t = string option end)
|
module V = Vfile_kind.Make(struct
|
||||||
(struct
|
type t = string option
|
||||||
let t = Sexp.To_sexp.(option string)
|
let t = Sexp.To_sexp.(option string)
|
||||||
end)
|
end)
|
||||||
|
|
||||||
let spec sctx (p : Package.t) =
|
let spec sctx (p : Package.t) =
|
||||||
let fn =
|
let fn =
|
||||||
|
|
|
@ -43,14 +43,16 @@ let eq (type a) (type b)
|
||||||
Id.eq A.id B.id
|
Id.eq A.id B.id
|
||||||
|
|
||||||
module Make
|
module Make
|
||||||
(T : sig type t end)
|
(T : sig
|
||||||
(To_sexp : sig val t : T.t Sexp.To_sexp.t end)
|
type t
|
||||||
|
val t : t Sexp.To_sexp.t
|
||||||
|
end)
|
||||||
: S with type t = T.t =
|
: S with type t = T.t =
|
||||||
struct
|
struct
|
||||||
type t = T.t
|
type t = T.t
|
||||||
|
|
||||||
(* XXX dune dump should make use of this *)
|
(* XXX dune dump should make use of this *)
|
||||||
let _t = To_sexp.t
|
let _t = T.t
|
||||||
|
|
||||||
module P = Utils.Persistent(struct
|
module P = Utils.Persistent(struct
|
||||||
type nonrec t = t
|
type nonrec t = t
|
||||||
|
|
|
@ -20,6 +20,8 @@ type 'a t = (module S with type t = 'a)
|
||||||
val eq : 'a t -> 'b t -> ('a, 'b) eq option
|
val eq : 'a t -> 'b t -> ('a, 'b) eq option
|
||||||
|
|
||||||
module Make
|
module Make
|
||||||
(T : sig type t end)
|
(T : sig
|
||||||
(To_sexp : sig val t : T.t Sexp.To_sexp.t end)
|
type t
|
||||||
|
val t : t Sexp.To_sexp.t
|
||||||
|
end)
|
||||||
: S with type t = T.t
|
: S with type t = T.t
|
||||||
|
|
Loading…
Reference in New Issue