diff --git a/async/cohttp_async.ml b/async/cohttp_async.ml index e3e7dec2c0..3b2beb7b0d 100644 --- a/async/cohttp_async.ml +++ b/async/cohttp_async.ml @@ -34,7 +34,7 @@ module Net = struct >>| function | { Addr_info.ai_addr=ADDR_INET (addr,_) }::_ -> Or_error.return (host, Ipaddr_unix.of_inet_addr addr, port) - | _ -> Or_error.error_string "resolution failed" + | _ -> Or_error.error "Failed to resolve Uri" uri Uri.sexp_of_t let connect_uri ?interrupt uri = lookup uri