Uncomment check for executable names
This commit is contained in:
parent
dc5c5851ff
commit
98c083db21
|
@ -1231,11 +1231,10 @@ module Gen(P : Params) = struct
|
||||||
String_map.map modules ~f:(fun (m : Module.t) ->
|
String_map.map modules ~f:(fun (m : Module.t) ->
|
||||||
{ m with obj_name = obj_name_of_basename m.ml_fname })
|
{ m with obj_name = obj_name_of_basename m.ml_fname })
|
||||||
in
|
in
|
||||||
(* List.iter exes.names ~f:(fun name ->
|
List.iter exes.names ~f:(fun name ->
|
||||||
if not (String_map.mem (String.capitalize name) modules) then
|
if not (String_map.mem (String.capitalize name) modules) then
|
||||||
die "executable %s in %s doesn't have a corresponding .ml file"
|
die "executable %s in %s doesn't have a corresponding .ml file"
|
||||||
name (Path.to_string dir));
|
name (Path.to_string dir));
|
||||||
*)
|
|
||||||
let modules =
|
let modules =
|
||||||
pped_modules ~dir ~dep_kind ~modules
|
pped_modules ~dir ~dep_kind ~modules
|
||||||
~preprocess:exes.buildable.preprocess
|
~preprocess:exes.buildable.preprocess
|
||||||
|
|
Loading…
Reference in New Issue