Fix test

fsprojects · Jul 21, 2023 · 69d641c · 69d641c
1 parent ccc2ad7
commit 69d641c
Showing 1 changed file with 7 additions and 10 deletions.
diff --git a/src/FSharp.Data.Http/Http.fs b/src/FSharp.Data.Http/Http.fs
@@ -1558,19 +1558,16 @@ module internal HttpHelpers =
             |> Seq.map (fun (MultipartFileItem (formField, fileName, contentType, contentStream)) ->
                 let printHeader (header, value) = sprintf "%s: %s" header value
 
-                let sharedHeaders =
-                    [ prefixedBoundary
-                      HttpRequestHeaders.ContentDisposition("form-data", Some formField, fileName)
-                      |> printHeader ]
-
                 let headers =
                     match contentType with
                     | Some (contentType) ->
-                        sharedHeaders
-                        |> Seq.append
-                            [ HttpRequestHeaders.ContentType contentType
-                              |> printHeader ]
-                    | None -> sharedHeaders
+                        [ prefixedBoundary
+                          HttpRequestHeaders.ContentDisposition("form-data", Some formField, fileName) |> printHeader
+                          HttpRequestHeaders.ContentType contentType |> printHeader ]
+                    | None ->
+                        [ prefixedBoundary
+                          HttpRequestHeaders.ContentDisposition("form-data", Some formField, fileName)
+                          |> printHeader ]
 
                 let headerpart = headers |> String.concat "\r\n"