concurrent requests with lwt

This commit is contained in:
silva guimaraes 2025-07-16 19:27:49 -03:00
parent 64368b1651
commit aecbd157d7
3 changed files with 118 additions and 62 deletions

View file

@ -134,7 +134,7 @@ let pp (day : Unix.tm) matches =
ppd_matches
let f () =
let fetched = Lib.fetch_all tournaments in
let fetched = Lwt_main.run @@ Lib.fetch_all tournaments in
let today = Unix.time () |> Unix.localtime in
let tomorrow = Unix.time () +. (60. *. 60. *. 24.) |> Unix.localtime in
let header = "### schedules" in