We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 6d6b85f + 312beae commit da0f78eCopy full SHA for da0f78e
1 file changed
src/FsHttp/Helper.fs
@@ -26,9 +26,7 @@ type StringBuilder with
26
27
member sb.appendSection(s: string) =
28
sb.appendLine s
29
-
30
- String([ 0 .. s.Length ] |> List.map (fun _ -> '-') |> List.toArray)
31
- |> sb.appendLine
+ String('-', s.Length + 1) |> sb.appendLine
32
33
[<RequireQualifiedAccess>]
34
module Map =
@@ -96,7 +94,7 @@ module Stream =
96
94
97
95
let copyToCallbackAsync (target: Stream) callback (source: Stream) =
98
async {
99
- let buffer = Array.create 1024 (byte 0)
+ let buffer = Array.create 81920 (byte 0) // 80KB matches .NET's Stream.CopyToAsync default buffer size
100
let logTimeSpan = TimeSpan.FromSeconds 1.5
101
let mutable continueLooping = true
102
let mutable overallBytesCount = 0
0 commit comments