This commit is contained in:
silva guimaraes 2025-07-11 15:58:40 -03:00
parent a3603f7c85
commit d4b3fcb61d
2 changed files with 8 additions and 9 deletions

View file

@ -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