expose read_buffer_size in parts

lemaetech · Jun 19, 2024 · 4d820ad · 4d820ad
1 parent c90fe84
commit 4d820ad
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git a/lib/http_multipart_formdata.ml b/lib/http_multipart_formdata.ml
@@ -348,7 +348,7 @@ let unconsumed reader = reader.unconsumed
 
 (* Non streaming *)
 
-let parts boundary body =
+let parts ?(read_buffer_size = 10) boundary body =
   let rec read_parts reader parts =
     read reader
     |> function
@@ -374,7 +374,7 @@ let parts boundary body =
     | _ -> assert false
   in
   let reader =
-    reader ~read_buffer_size:10 boundary (`Cstruct (Cstruct.of_string body))
+    reader ~read_buffer_size boundary (`Cstruct (Cstruct.of_string body))
   in
   read_parts reader (Queue.create ())
 

diff --git a/lib/http_multipart_formdata.mli b/lib/http_multipart_formdata.mli
@@ -89,11 +89,12 @@ val unconsumed : reader -> Cstruct.t
     size. *)
 
 val parts :
-     boundary
+  ?read_buffer_size:int
+  -> boundary
   -> string
   -> ((field_name * (part_header * part_body)) list, string) result
-(** [parts boundary http_body] returns a list of HTTP multipart parts parsed in
-    [http_body].
+(** [parts ?read_buffer_size boundary http_body] returns a list of HTTP
+    multipart parts parsed in [http_body].
 
     The returned parts list is keyed to a form field name so that one can do: