Rename more legacy occurrences

A few left over cases where ${..} was used instead of %{..}. Also use dune
rather than jbuilder in the error message.

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2018-07-09 11:38:47 +07:00
parent e7bc884d26
commit c616171ed8
1 changed files with 6 additions and 6 deletions

View File

@ -545,11 +545,11 @@ module Action = struct
type resolved_forms = type resolved_forms =
{ (* Failed resolutions *) { (* Failed resolutions *)
mutable failures : fail list mutable failures : fail list
; (* All "name" for ${lib:name:...}/${lib-available:name} forms *) ; (* All "name" for %{lib:name:...}/%{lib-available:name} forms *)
mutable lib_deps : Build.lib_deps mutable lib_deps : Build.lib_deps
; (* Static deps from ${...} variables. For instance ${exe:...} *) ; (* Static deps from %{...} variables. For instance %{exe:...} *)
mutable sdeps : Path.Set.t mutable sdeps : Path.Set.t
; (* Dynamic deps from ${...} variables. For instance ${read:...} *) ; (* Dynamic deps from %{...} variables. For instance %{read:...} *)
mutable ddeps : (unit, Value.t list) Build.t String.Map.t mutable ddeps : (unit, Value.t list) Build.t String.Map.t
} }
@ -580,7 +580,7 @@ module Action = struct
let parse_lib_file ~loc s = let parse_lib_file ~loc s =
match String.lsplit2 s ~on:':' with match String.lsplit2 s ~on:':' with
| None -> | None ->
Loc.fail loc "invalid ${lib:...} form: %s" s Loc.fail loc "invalid %%{lib:...} form: %s" s
| Some x -> x | Some x -> x
let expand_step1 sctx ~dir ~dep_kind ~scope ~targets_written_by_user let expand_step1 sctx ~dir ~dep_kind ~scope ~targets_written_by_user
@ -773,7 +773,7 @@ module Action = struct
It's likely that what we get here is what the user thinks It's likely that what we get here is what the user thinks
of as temporary files, even though they might conflict with of as temporary files, even though they might conflict with
actual targets. We need to tell jbuilder about such things, actual targets. We need to tell dune about such things,
so that it can report better errors. so that it can report better errors.
{[ {[
@ -798,7 +798,7 @@ module Action = struct
if Path.parent_exn target <> dir then if Path.parent_exn target <> dir then
Loc.fail loc Loc.fail loc
"This action has targets in a different directory than the current \ "This action has targets in a different directory than the current \
one, this is not allowed by Jbuilder at the moment:\n%s" one, this is not allowed by dune at the moment:\n%s"
(List.map targets ~f:(fun target -> (List.map targets ~f:(fun target ->
sprintf "- %s" (Utils.describe_target target)) sprintf "- %s" (Utils.describe_target target))
|> String.concat ~sep:"\n")); |> String.concat ~sep:"\n"));