anchor.diff:      RepositoryUrl = String.Empty
       DownloadStatus = DownloadStatusOption.NotDownloadable
       ConnectTimeout = 0
  -    MaxTime = 0
  +    MaxTime = 120. // 2 minutes by default
   }
   
   /// [omit]
  
positive.code: /// ## Parameters
  ///  - `setParams` - Function used to override the default parameters
  let HockeyApp (setParams: HockeyAppUploadParams -> HockeyAppUploadParams) =
      HockeyAppUploadDefaults
      |> setParams
      |> validateParams
      |> toCurlArgs
      |> fun args ->
          ExecProcessAndReturnMessages (fun p ->
              p.FileName <- "curl"
              p.Arguments <- (String.concat " " args)
          ) (TimeSpan.FromMinutes 2.)
      |> fun response ->
          let error = sprintf "Error while posting to HockeyApp.%sMessages: %s%sErrors: %s%s" nl (String.concat "; " response.Messages) nl (String.concat "; " response.Errors) nl
          match response.ExitCode with
  
negative.code:     if not (String.IsNullOrEmpty param.CommitSHA) then yield sprintf "-F \"commit_sha=%s\"" param.CommitSHA
      if not (String.IsNullOrEmpty param.BuildServerUrl) then yield sprintf "-F \"build_server_url=%s\"" param.BuildServerUrl
      if not (String.IsNullOrEmpty param.RepositoryUrl) then yield sprintf "-F \"repository_url=%s\"" param.RepositoryUrl
      yield "https://upload.hockeyapp.net/api/2/apps/upload"
  }
  
  