useless close fn

2023-05-13 10:39:51 +02:00 · 2023-05-13 10:39:51 +02:00 · 047daf36b4
commit 047daf36b4
parent 76675b179a
2 changed files with 1 additions and 5 deletions
--- a/bin/main.ml
+++ b/bin/main.ml
@ -24,7 +24,5 @@ let () =
  let driver = prepare (Gecko "0.33.0") in
  let driver_pid = run driver [] in
  print_endline (fmt "Driver running as %d" driver_pid);
-  main;
-  let closed_pid = close driver_pid in
-  print_endline (fmt "Program %d closed!" closed_pid)
+  main
 ;;
--- a/lib/drivers.ml
+++ b/lib/drivers.ml
@ -76,5 +76,3 @@ let run path args =
  Unix.sleepf 0.5;
  pid
 ;;
-
-let close pid = fst (Unix.waitpid [] pid)