refactor(async): use [Strings] for string list (#1060)

Instead of [Pipe] Signed-off-by: Rudi Grinberg <[email protected]>
mirage · Jun 30, 2024 · b4a24d9 · b4a24d9
1 parent c54b69f
commit b4a24d9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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