From 8d74472f392c150e78cffbf43881954deaa03906 Mon Sep 17 00:00:00 2001 From: Gareth Evans Date: Fri, 28 Aug 2015 20:45:58 +0100 Subject: [PATCH] Fixed bug where first 1024 bytes were uploaded using FTP --- src/app/FakeLib/FtpHelper.fs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/app/FakeLib/FtpHelper.fs b/src/app/FakeLib/FtpHelper.fs index 1f2e462bb64..eec35b5bec9 100644 --- a/src/app/FakeLib/FtpHelper.fs +++ b/src/app/FakeLib/FtpHelper.fs @@ -25,7 +25,7 @@ let getServerInfo (serverNameIp : string) (user : string) (password : string) ft let rec private writeChunkToReqStream (chunk : byte []) (reqStrm : Stream) (br : BinaryReader) = if chunk.Length <> 0 then reqStrm.Write(chunk, 0, chunk.Length) - writeChunkToReqStream (br.ReadBytes 1024) reqStrm |> ignore + writeChunkToReqStream (br.ReadBytes 1024) reqStrm br let inline private getSubstring (fromPos : int) (str : string) (toPos : int) = str.Substring(fromPos, toPos) let inline private lastSlashPos (str : string) = str.LastIndexOf(@"\") + 1