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

fix use of labels

This commit is contained in:
Jeremie Dimino 2017-02-24 13:08:37 +00:00
parent e148f75ee4
commit 4bdac39dd4
3 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bin/main.ml
View File

@ -111,7 +111,7 @@ let build_package =
let external_lib_deps packages = let external_lib_deps packages =
let log = create_log () in let log = create_log () in
let deps = let deps =
Path.Map.fold (Main.external_lib_deps ~log ~packages) ~init:String_map.empty Path.Map.fold (Main.external_lib_deps ~log ~packages ()) ~init:String_map.empty
~f:(fun ~key:_ ~data:deps acc -> Build.merge_lib_deps deps acc) ~f:(fun ~key:_ ~data:deps acc -> Build.merge_lib_deps deps acc)
in in
String_map.iter deps ~f:(fun ~key:n ~data -> String_map.iter deps ~f:(fun ~key:n ~data ->

2
src/main.ml
View File

@ -27,7 +27,7 @@ let setup ?filter_out_optional_stanzas_with_missing_deps () =
; packages ; packages
} }
let external_lib_deps ?log ~packages = let external_lib_deps ?log ~packages () =
Future.Scheduler.go ?log Future.Scheduler.go ?log
(setup () ~filter_out_optional_stanzas_with_missing_deps:false (setup () ~filter_out_optional_stanzas_with_missing_deps:false
>>| fun ({ build_system = bs; stanzas; _ } as setup) -> >>| fun ({ build_system = bs; stanzas; _ } as setup) ->

1
src/main.mli
View File

@ -17,6 +17,7 @@ val setup
val external_lib_deps val external_lib_deps
: ?log:out_channel : ?log:out_channel
-> packages:string list -> packages:string list
-> unit
-> Build.lib_deps Path.Map.t -> Build.lib_deps Path.Map.t
val report_error : ?map_fname:(string -> string) -> Format.formatter -> exn -> unit val report_error : ?map_fname:(string -> string) -> Format.formatter -> exn -> unit