anchor.diff:      RepositoryUrl = String.Empty
       DownloadStatus = DownloadStatusOption.NotDownloadable
       Teams = Array.empty
  +    UploadTimeout = TimeSpan.FromMinutes 2.
   }
   
   /// [omit]
  
positive.code: 
      /// Restrict download to specific teams
      Teams: string[]
  }
  
  /// The default HockeyApp parameters
  
negative.code: /// ## Parameters
  ///  - `setParams` - Function used to override the default parameters
  let HockeyApp (setParams: HockeyAppUploadParams -> HockeyAppUploadParams) =
      let p = HockeyAppUploadDefaults
              |> setParams
              |> validateParams
  
      p
      |> toCurlArgs
      |> fun args ->
          ExecProcessAndReturnMessages (fun p ->
              p.FileName <- "curl"
              p.Arguments <- (String.concat " " args)
          ) p.UploadTimeout
      |> 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
  