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