useless close fn
This commit is contained in:
parent
76675b179a
commit
047daf36b4
2 changed files with 1 additions and 5 deletions
|
@ -24,7 +24,5 @@ let () =
|
||||||
let driver = prepare (Gecko "0.33.0") in
|
let driver = prepare (Gecko "0.33.0") in
|
||||||
let driver_pid = run driver [] in
|
let driver_pid = run driver [] in
|
||||||
print_endline (fmt "Driver running as %d" driver_pid);
|
print_endline (fmt "Driver running as %d" driver_pid);
|
||||||
main;
|
main
|
||||||
let closed_pid = close driver_pid in
|
|
||||||
print_endline (fmt "Program %d closed!" closed_pid)
|
|
||||||
;;
|
;;
|
||||||
|
|
|
@ -76,5 +76,3 @@ let run path args =
|
||||||
Unix.sleepf 0.5;
|
Unix.sleepf 0.5;
|
||||||
pid
|
pid
|
||||||
;;
|
;;
|
||||||
|
|
||||||
let close pid = fst (Unix.waitpid [] pid)
|
|
||||||
|
|
Loading…
Reference in a new issue