diff --git a/src/gen_rules.ml b/src/gen_rules.ml index b853de4e..97e0a4a6 100644 --- a/src/gen_rules.ml +++ b/src/gen_rules.ml @@ -976,7 +976,7 @@ module Gen(P : Install_rules.Params) = struct let rule = { Rule. targets = Infer - ; deps = [] + ; deps = Named.empty ; action = (loc, Action.Unexpanded.Redirect (Stdout, diff.file2, run_action)) ; mode = Standard diff --git a/src/jbuild.ml b/src/jbuild.ml index 00033933..a56044ed 100644 --- a/src/jbuild.ml +++ b/src/jbuild.ml @@ -1420,7 +1420,7 @@ module Tests = struct { exes : Executables.t ; locks : String_with_vars.t list ; package : Package.t option - ; deps : Dep_conf.t list + ; deps : Dep_conf.t Named.t } let gen_parse names = @@ -1428,7 +1428,7 @@ module Tests = struct (Buildable.t >>= fun buildable -> field_oslu "link_flags" >>= fun link_flags -> names >>= fun names -> - field "deps" (list Dep_conf.t) ~default:[] >>= fun deps -> + field "deps" Dep_conf.bindings ~default:Named.empty >>= fun deps -> field_o "package" Pkg.t >>= fun package -> field "locks" (list String_with_vars.t) ~default:[] >>= fun locks -> field "modes" Executables.Link_mode.Set.t diff --git a/src/jbuild.mli b/src/jbuild.mli index 50b394e8..efba5409 100644 --- a/src/jbuild.mli +++ b/src/jbuild.mli @@ -87,6 +87,8 @@ module Named : sig ; unnamed : 'a list } + val empty : 'a t + val sexp_of_t : ('a -> Usexp.t) -> 'a t -> Usexp.t end @@ -359,7 +361,7 @@ module Tests : sig { exes : Executables.t ; locks : String_with_vars.t list ; package : Package.t option - ; deps : Dep_conf.t list + ; deps : Dep_conf.t Named.t } end