concurrent requests with lwt
This commit is contained in:
parent
64368b1651
commit
aecbd157d7
3 changed files with 118 additions and 62 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue