From d4b3fcb61d69c1f0548307cd2cb9e2c38bd3a466 Mon Sep 17 00:00:00 2001 From: silva guimaraes Date: Fri, 11 Jul 2025 15:58:40 -0300 Subject: [PATCH] fix --- bin/main.ml | 16 ++++++++-------- lib/lib.ml | 1 - 2 files changed, 8 insertions(+), 9 deletions(-) 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