Anri/pusk
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages 1 Wiki Activity Actions

keep version in gecko

Browse source
This commit is contained in:
Mylloon 2023-05-13 10:22:36 +02:00
parent 349952d116
commit 76675b179a
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
.gitignore vendored
View file

@ -2,4 +2,4 @@ _build/
/selenium-*.jar /selenium-*.jar
/gecko-*.tar.gz /gecko-*.tar.gz
/geckodriver /geckodriver-*

4
lib/drivers.ml
View file

@ -57,13 +57,15 @@ type driver = Gecko of string
let prepare = function let prepare = function
| Gecko version_driver -> | Gecko version_driver ->
let driver = "geckodriver" in let driver = fmt "geckodriver-%s" version_driver in
if not (Sys.file_exists driver) if not (Sys.file_exists driver)
then ( then (
let archive = fmt "./gecko-%s.tar.gz" version_driver in let archive = fmt "./gecko-%s.tar.gz" version_driver in
Lwt_main.run (download_gecko_driver version_driver archive); Lwt_main.run (download_gecko_driver version_driver archive);
(* TODO: Use native version instead of relying on Unix tools *) (* TODO: Use native version instead of relying on Unix tools *)
let _ = Sys.command (fmt "tar xvzf %s" archive) in let _ = Sys.command (fmt "tar xvzf %s" archive) in
let _ = Sys.command (fmt "mv geckodriver %s" driver) in
let _ = Sys.command (fmt "rm %s" archive) in
()); ());
driver driver
;; ;;