anchor.diff: -﻿module Paket.NuGet
  +module Paket.NuGet
   
   // Type forwards, this way we only need to open "Paket.NuGet" thoughout paket code (others are implementation detail)
   type UnparsedPackageFile = Paket.NuGetCache.UnparsedPackageFile
  
positive.code:                     let mutable readSinceLastMeasure = 0L
  
                      let requestMsg = new HttpRequestMessage(HttpMethod.Get, downloadUri)
                      let! responseMsg = client.SendAsync(requestMsg) |> Async.AwaitTask
                      match responseMsg.StatusCode with
                      | HttpStatusCode.OK -> ()
                      | statusCode -> failwithf "HTTP status code was %d - %O" (int statusCode) statusCode
  
                      let! httpResponseStream = responseMsg.Content.ReadAsStreamAsync() |> Async.AwaitTask
  
                      let bufferSize = 1024 * 10
                      let buffer : byte [] = Array.zeroCreate bufferSize
  
negative.code:                             lastSpeedMeasure.Restart()
                          // if there is no response for a minute -> abort
  
                          let! bytes = httpResponseStream.ReadAsync(buffer, 0, bufferSize, s.Token) |> Async.AwaitTaskWithoutAggregate
                          //let! bytes = httpResponseStream.AsyncRead(buffer, 0, bufferSize)
                          bytesRead := bytes
  