@@ -1034,9 +1034,6 @@ module Http =
10341034 |> List.find ( fun ( k , v ) -> String.toLowercase k = " content-encoding" )
10351035 |> Option.map Tuple2.second
10361036 |> Option.map String.toLowercase
1037- print $" headers: {headers}"
1038-
1039- LibBackend.File.writefileBytes LibBackend.Config.NoCheck " contents.file" body
10401037
10411038 // If the transfer-encoding=chunked header is set, we need to process it before
10421039 // we have a gzip/brotli/etc output
@@ -1045,7 +1042,6 @@ module Http =
10451042 // tests for the transfer-encoding format and we don't want to break them by
10461043 // transfer-encoding test bodies
10471044 if Option.isSome contentEncodingHeader then
1048- print " hanve contentencodingheader"
10491045 let isTransferEncodingChunked =
10501046 headers
10511047 |> List.find ( fun ( k , v ) ->
@@ -1081,15 +1077,13 @@ module Http =
10811077 new GZipStream( inputStream, CompressionMode.Decompress)
10821078 use outputStream = new MemoryStream()
10831079 decompressionStream.CopyTo( outputStream)
1084- print " done gunzipping"
10851080 outputStream.ToArray()
10861081 | Some " br" ->
10871082 let inputStream = new MemoryStream( body)
10881083 use decompressionStream =
10891084 new BrotliStream( inputStream, CompressionMode.Decompress)
10901085 use outputStream = new MemoryStream()
10911086 decompressionStream.CopyTo( outputStream)
1092- print " done unbrotliing"
10931087 outputStream.ToArray()
10941088 | Some ce -> Exception.raiseInternal $" unsupported content encoding {ce}" []
10951089 | None -> body
0 commit comments