From e8d32fec2d9192c71012b68718142d190a087486 Mon Sep 17 00:00:00 2001
From: ordinaryorange <20490998+ordinaryorange@users.noreply.github.com>
Date: Thu, 14 Oct 2021 23:37:03 +1030
Subject: [PATCH] additional newline for multipart files

newline required before next header is written otherwise server will not decode correctly
---
 src/Net/Http.fs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Net/Http.fs b/src/Net/Http.fs
index 7d1800869..47a4ac9a5 100644
--- a/src/Net/Http.fs
+++ b/src/Net/Http.fs
@@ -1367,7 +1367,8 @@ module private HttpHelpers =
                 [ headerStream
                   newlineStream()
                   newlineStream()
-                  fileStream ]
+                  fileStream 
+                  newlineStream()]
             let partLength = partSubstreams |> Seq.sumBy (fun s -> s.Length)
             new CombinedStream(partLength, partSubstreams) :> Stream
         )