anchor.diff:  
           let deleteReq url rev =
               async {
  -                let! res = Http.AsyncRequest (url, query = ["rev", rev], httpMethod = "DELETE")
  +                let! res = Http.AsyncRequest (url, query = ["rev", rev], httpMethod = "DELETE", silentHttpErrors = true)
                   return 
                       match res.StatusCode with
                       | 200 | 202 ->
  
positive.code:                 }
              get = fun s -> 
                  async {
                      let! res = Http.AsyncRequest(url + s)
                      return
                          match res.StatusCode with
                          | 200 -> Some { Id = s; Url = url + s + "/" }
  
negative.code: 
          let putReq url model = 
              async {
                  let! res = Http.AsyncRequest (url, headers = ["content-type", "application/json"], body = TextRequest(model), httpMethod = "PUT", silentHttpErrors = true)
                  return 
                      match res.StatusCode with
                      | 201 | 202 -> 
  