File tree Expand file tree Collapse file tree 1 file changed +9
-4
lines changed Expand file tree Collapse file tree 1 file changed +9
-4
lines changed Original file line number Diff line number Diff line change @@ -654,10 +654,15 @@ module Low_level = struct
654654 | _ -> None
655655 in
656656 let request = Luv.DNS.Addr_info.Request. make () in
657- await_with_cancel ~request (fun loop -> Luv.DNS. getaddrinfo ~loop ~request ~service ~node () )
658- |> or_raise
659- |> List. filter_map to_eio_sockaddr_t
660-
657+ match (await_with_cancel ~request
658+ (fun loop -> Luv.DNS. getaddrinfo ~loop ~request ~service ~node () ))
659+ with
660+ | Ok nl -> List. filter_map to_eio_sockaddr_t nl
661+ | Error `EAI_ADDRFAMILY | Error `EAI_AGAIN | Error `EAI_BADFLAGS | Error `EAI_BADHINTS
662+ | Error `EAI_CANCELED | Error `EAI_FAIL | Error `EAI_FAMILY | Error `EAI_MEMORY
663+ | Error `EAI_NODATA | Error `EAI_NONAME | Error `EAI_OVERFLOW | Error `EAI_PROTOCOL
664+ | Error `EAI_SERVICE | Error `EAI_SOCKTYPE -> []
665+ | Error e -> raise (Luv_error e)
661666end
662667
663668open Low_level
You can’t perform that action at this time.
0 commit comments