diff --git a/bin/main.ml b/bin/main.ml index 6e1a3a7..0f2c621 100644 --- a/bin/main.ml +++ b/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 diff --git a/lib/lib.ml b/lib/lib.ml index 804b115..ebb228d 100644 --- a/lib/lib.ml +++ b/lib/lib.ml @@ -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