matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Make the tests stanza use named deps 

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2018-07-09 00:06:02 +07:00
parent 7fbe0bc172
commit 1cc0198d9c
3 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/gen_rules.ml
View File

@ -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

4
src/jbuild.ml
View File

@ -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

4
src/jbuild.mli
View File

@ -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