From b4a24d95a2487c9f99a43570b1340d37bc4e70b1 Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Sun, 30 Jun 2024 15:28:57 +0100 Subject: [PATCH] refactor(async): use [Strings] for string list (#1060) Instead of [Pipe] Signed-off-by: Rudi Grinberg --- cohttp-async/src/body.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cohttp-async/src/body.ml b/cohttp-async/src/body.ml index 5d430648a..a61c8d370 100644 --- a/cohttp-async/src/body.ml +++ b/cohttp-async/src/body.ml @@ -52,7 +52,7 @@ let transfer_encoding = function | #B.t as t -> B.transfer_encoding t | `Pipe _ -> Cohttp.Transfer.Chunked -let of_string_list strings = `Pipe (Pipe.of_list strings) +let of_string_list strings = `Strings strings let map t ~f = match t with