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

Remove a couple of extra begin..end 

Signed-off-by: Jeremie Dimino <jeremie@dimino.org>
This commit is contained in:
Jeremie Dimino 2018-07-09 17:32:55 +01:00 committed by Rudi Grinberg
parent 38c0d56ba8
commit c10a2c254e
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/super_context.ml
View File

@ -778,14 +778,14 @@ module Action = struct
match String.Map.find dynamic_expansions key with match String.Map.find dynamic_expansions key with
| Some _ as opt -> opt | Some _ as opt -> opt
| None -> | None ->
begin match match
Pform.Map.expand Pform.Map.static_vars ~syntax_version ~var Pform.Map.expand Pform.Map.static_vars ~syntax_version ~var
with with
| None -> | None ->
Jbuild.Bindings.find deps_written_by_user key Jbuild.Bindings.find deps_written_by_user key
|> Option.map ~f:Value.L.paths |> Option.map ~f:Value.L.paths
| Some x -> | Some x ->
begin match x with match x with
Pform.Var.Deps -> Pform.Var.Deps ->
deps_written_by_user deps_written_by_user
|> Jbuild.Bindings.to_list |> Jbuild.Bindings.to_list
@ -803,9 +803,7 @@ module Action = struct
end end
| _ -> | _ ->
Exn.code_error "Unexpected variable in step2" Exn.code_error "Unexpected variable in step2"
["var", String_with_vars.Var.sexp_of_t var] ["var", String_with_vars.Var.sexp_of_t var])
end
end)
let run sctx ~loc ?(extra_vars=String.Map.empty) ~bindings let run sctx ~loc ?(extra_vars=String.Map.empty) ~bindings
t ~dir ~dep_kind ~targets:targets_written_by_user ~scope t ~dir ~dep_kind ~targets:targets_written_by_user ~scope