From 1013cae4f15d91f75986223392bf7eb9ab36f547 Mon Sep 17 00:00:00 2001 From: Petter Urkedal Date: Sun, 18 Oct 2015 14:08:05 +0200 Subject: [PATCH] Remove obsolete ~buffer_size from Lwt_io.open_connection call. --- src/smtp_lwt.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/smtp_lwt.ml b/src/smtp_lwt.ml index 447830f..b11e5fc 100644 --- a/src/smtp_lwt.ml +++ b/src/smtp_lwt.ml @@ -11,7 +11,7 @@ module IO = struct let open_connection ~host ~service = Lwt_unix.getaddrinfo host service [] >>= function | [] -> fail (Failure ("IP resolution failed for " ^ host)) - | h::t -> Lwt_io.open_connection ~buffer_size:4096 h.Lwt_unix.ai_addr + | h::t -> Lwt_io.open_connection h.Lwt_unix.ai_addr let shutdown_connection = Lwt_io.close