quiet build
This commit is contained in:
parent
b95fe287cf
commit
c1fef155d4
2
build.ml
2
build.ml
|
@ -162,7 +162,7 @@ let () =
|
||||||
let src = "src" ^/ name ^ ".mll" in
|
let src = "src" ^/ name ^ ".mll" in
|
||||||
let dst = "src" ^/ name ^ ".ml" in
|
let dst = "src" ^/ name ^ ".ml" in
|
||||||
let x = Sys.file_exists dst in
|
let x = Sys.file_exists dst in
|
||||||
let n = exec "%s %s" ocamllex src in
|
let n = exec "%s -q %s" ocamllex src in
|
||||||
if n <> 0 then exit n;
|
if n <> 0 then exit n;
|
||||||
if not x then
|
if not x then
|
||||||
at_exit (fun () -> try Sys.remove dst with _ -> ()));
|
at_exit (fun () -> try Sys.remove dst with _ -> ()));
|
||||||
|
|
Loading…
Reference in New Issue