From e49cd5f67e37148642826e2c833a787270b3f0ec Mon Sep 17 00:00:00 2001 From: hhugo Date: Tue, 14 Sep 2021 19:16:08 +0200 Subject: [PATCH] Update src/unix/lwt_bytes.ml MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Co-authored-by: Raphaël Proust --- src/unix/lwt_bytes.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/unix/lwt_bytes.ml b/src/unix/lwt_bytes.ml index 7c6ddcaa3..e9c7b9466 100644 --- a/src/unix/lwt_bytes.ml +++ b/src/unix/lwt_bytes.ml @@ -41,7 +41,7 @@ let blit_from_string src_buf src_ofs dst_buf dst_ofs len = if (len < 0 || src_ofs < 0 || src_ofs > String.length src_buf - len || dst_ofs < 0 || dst_ofs > length dst_buf - len) then - invalid_arg "Lwt_bytes.blit_from_bytes" + invalid_arg "Lwt_bytes.blit_from_string" else unsafe_blit_from_string src_buf src_ofs dst_buf dst_ofs len