anchor.diff:              jobj [
                   "method" .= x.Method
                   "uri" .= x.URI
  +                "requestHeaders" .= x.RequestHeaders
  +                "contentHeaders" .= x.ContentHeaders
                   "body" .= x.Body
  -                "headers" .= x.Headers
               ]
   
       type Status with
  
positive.code:         | null -> async {return ""}
          | _ -> content.ReadAsStringAsync() |> Async.AwaitTask
  
      let convertRequestAsync (request: HttpRequestMessage) =
          async {
              let! requestBody = getContentAsStringAsync request.Content
              return
                  {Method = request.Method.ToString()
                   URI = request.RequestUri.ToString()
                   Body = requestBody
                   Headers = convertHeaders request.Headers}
          }
  
      let convertResponseAsync (response: HttpResponseMessage) =
  
negative.code: 
      type Response =
          {Status : Status
           ResponseHeaders : Header array
           ContentHeaders : Header array
           Body : string
           HttpVersion : Version}
  
  