anchor.diff:      { ToolPath : string
         TimeOut : TimeSpan
         PublishUrl : string
  +      WorkingDir : string
         AccessKey : string }
   
   /// Paket push default parameters
  
positive.code:       TimeOut : TimeSpan
        Version : string
        ReleaseNotes : string
        OutputPath : string }
  
  /// Paket pack default parameters  
  
negative.code:             info.Arguments <- sprintf "pack output %s version \"%s\" releaseNotes \"%s\"" parameters.OutputPath 
                                    parameters.Version (xmlEncode parameters.ReleaseNotes)) parameters.TimeOut
      
      if packResult <> 0 then failwithf "Error during packing %s." parameters.WorkingDir
      traceEndTask "PaketPack" parameters.WorkingDir
  
  /// Pushes all NuGet packages in the working dir to the server by using Paket push.
  /// ## Parameters
  /// 
  ///  - `setParams` - Function used to manipulate the default parameters.
  let Push setParams = 
      let parameters : PaketPushParams = PaketPushDefaults() |> setParams
  
      let packages = !! (parameters.WorkingDir @@ "/**/*.nupkg") |> Seq.toList
      traceStartTask "PaketPush" (separated ", " packages)
      for package in packages do
          let pushResult = 
              ExecProcess (fun info -> 
  