fix
This commit is contained in:
parent
a3603f7c85
commit
d4b3fcb61d
2 changed files with 8 additions and 9 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue