Sending a UDP packet is… complex?

sendudp.ml

open Core.Std
open Async.Std

(* let buf = Iobuf.of_string "hello hest\n" *)

let addr = Unix.Inet_addr.of_string "127.0.0.1"

let socket_addr = Unix.Socket.Address.Inet.create addr ~port:2115

let _ =
  let open Or_error.Monad_infix in
  Udp.sendto () >>| fun fd iobuf addr ->
  (* ??? *)
  Deferred.unit

let sendto_sync: (_ ->
 (Core.read, Core.Iobuf.seek) Core.Iobuf.t -> _) =
  Or_error.ok_exn @@ Udp.sendto_sync ()

let _ =
  let s = Socket.create Socket.Type.udp in
  sendto_sync (Socket.fd s) ...