anchor.diff:      req.Headers.Add("fake-deploy-use-http-response-messages", "true")
       match authToken with
       | None -> ()
  -    | Some t -> 
  -        match t with
  -        | AuthToken t -> req.Headers.Add("AuthToken", string t)
  +    | Some t -> req.Headers.Add("AuthToken", string t)
       req
   
   let private downloadString (request : HttpWebRequest) = 
  
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: type AuthToken = 
      | AuthToken of Guid
  
  let mutable private authToken : Guid option = None
  
  /// A http response type.
  type Response = 
  