From 79224ff1942c1da00f1fa030e67ed81b4331eeed Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Thu, 28 Jun 2018 22:42:55 +0630 Subject: [PATCH] Add name to Vfile_kind functor Signed-off-by: Rudi Grinberg --- src/super_context.ml | 1 + src/vfile_kind.ml | 3 ++- src/vfile_kind.mli | 1 + 3 files changed, 4 insertions(+), 1 deletion(-) diff --git a/src/super_context.ml b/src/super_context.ml index 964f895d..fab6f655 100644 --- a/src/super_context.ml +++ b/src/super_context.ml @@ -537,6 +537,7 @@ module Pkg_version = struct module V = Vfile_kind.Make(struct type t = string option let t = Sexp.To_sexp.(option string) + let name = "Pkg_version" end) let spec sctx (p : Package.t) = diff --git a/src/vfile_kind.ml b/src/vfile_kind.ml index dceff38d..2cf8a3e8 100644 --- a/src/vfile_kind.ml +++ b/src/vfile_kind.ml @@ -46,6 +46,7 @@ module Make (T : sig type t val t : t Sexp.To_sexp.t + val name : string end) : S with type t = T.t = struct @@ -56,7 +57,7 @@ struct module P = Utils.Persistent(struct type nonrec t = t - let name = "VFILE_KIND" + let name = "VFILE_KIND-" ^ T.name let version = 1 end) diff --git a/src/vfile_kind.mli b/src/vfile_kind.mli index 3ae1c604..c4351ff5 100644 --- a/src/vfile_kind.mli +++ b/src/vfile_kind.mli @@ -23,5 +23,6 @@ module Make (T : sig type t val t : t Sexp.To_sexp.t + val name : string end) : S with type t = T.t