fix
This commit is contained in:
parent
a3603f7c85
commit
d4b3fcb61d
2 changed files with 8 additions and 9 deletions
16
bin/main.ml
16
bin/main.ml
|
|
@ -80,6 +80,13 @@ let tournaments : Lib.tournament_scrape_context list =
|
|||
filter_foreigners = false;
|
||||
timezone_offset = Some ~-5;
|
||||
};
|
||||
{
|
||||
id = 11653;
|
||||
season = 71131;
|
||||
name = "CHL1";
|
||||
filter_foreigners = false;
|
||||
timezone_offset = Some ~-4;
|
||||
};
|
||||
{
|
||||
id = 390;
|
||||
season = 72603;
|
||||
|
|
@ -94,13 +101,6 @@ let tournaments : Lib.tournament_scrape_context list =
|
|||
filter_foreigners = false;
|
||||
timezone_offset = Some ~-4;
|
||||
};
|
||||
{
|
||||
id = 11653;
|
||||
season = 71131;
|
||||
name = "CHL1";
|
||||
filter_foreigners = false;
|
||||
timezone_offset = Some ~-4;
|
||||
};
|
||||
{
|
||||
id = 11541;
|
||||
season = 69831;
|
||||
|
|
@ -163,6 +163,6 @@ let f () =
|
|||
while true do
|
||||
print_endline "fetching matches...";
|
||||
f ();
|
||||
print_endline "\nupdated. sleeping for 5 minutes";
|
||||
print_endline "updated. sleeping for 5 minutes";
|
||||
Unix.sleep 300
|
||||
done
|
||||
|
|
|
|||
|
|
@ -163,7 +163,6 @@ exception Status_Not_found
|
|||
(* TODO: handle "resolution fai led: name resolution failed" *)
|
||||
let get url : string =
|
||||
let http_get url =
|
||||
Printf.printf "\r%-90s" url;
|
||||
Stdlib.flush Stdlib.stdout;
|
||||
let* resp, body = Cohttp_lwt_unix.Client.get (Uri.of_string url) in
|
||||
let code = resp |> Cohttp.Response.status |> Cohttp.Code.code_of_status in
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue