anchor.diff:  type AuthToken = 
       | AuthToken of Guid
   
  -let mutable private authToken : AuthToken option = None
  +let mutable private authToken : Guid option = None
   
   /// A http response type.
   type Response = 
  
positive.code: /// Posts a deployment package to the given URL.
  let postDeploymentPackage url packageFileName args = post url packageFileName args defaultTimeout |> wrapFailure
  
  /// Posts a deployment package to the given URL, executes the script inside it with given arguments and handles the response.
  let deployPackage (f : Deployment -> Deployment) =
      let d = f { defaultDeployment with AuthToken = authToken }
      authToken <- d.AuthToken 
      let result = post d.Url d.PackageFileName (d.Arguments |> Array.ofList) d.Timeout |> wrapFailure
      match result with
      | Success _ -> tracefn "Deployment of %s successful" d.PackageFileName
  
negative.code:     let response = REST.ExecutePost (server + "/login") "x" "x" postData
      authToken <- response.Trim([| '"' |])
                   |> Guid.Parse
                   |> Some
      authToken
  
  