add a start and stop fn
This commit is contained in:
parent
cebb5cb5b0
commit
f3ca71b509
1 changed files with 16 additions and 8 deletions
24
bin/main.ml
24
bin/main.ml
|
@ -1,15 +1,23 @@
|
|||
open Pusk.Net
|
||||
open Pusk.Drivers
|
||||
|
||||
let main =
|
||||
let session_id = get_session in
|
||||
let body = close_session session_id in
|
||||
print_endline body
|
||||
let start driver =
|
||||
let name_driver = prepare driver in
|
||||
let data_driver = run_process name_driver [] in
|
||||
let session_id = get_session () in
|
||||
data_driver, session_id
|
||||
;;
|
||||
|
||||
let () =
|
||||
let driver = prepare (Gecko "0.33.0") in
|
||||
let driver_process = run_process driver [] in
|
||||
main;
|
||||
let stop (driver_process, session_id) =
|
||||
let data = close_session session_id in
|
||||
print_endline data;
|
||||
stop_process driver_process
|
||||
;;
|
||||
|
||||
let main () = ()
|
||||
|
||||
let () =
|
||||
let data = start (Gecko "0.33.0") in
|
||||
main ();
|
||||
stop data
|
||||
;;
|
||||
|
|
Loading…
Reference in a new issue