anchor.diff:          | null -> async {return ""}
           | _ -> content.ReadAsStringAsync() |> Async.AwaitTask
   
  +    let getContentHeaders (content:HttpContent) =
  +        match content with
  +        | null -> [||]
  +        | _ -> convertHeaders content.Headers
  +
       let convertRequestAsync (request: HttpRequestMessage) =
           async {
               let! requestBody = getContentAsStringAsync request.Content
               return
                   {Method = request.Method.ToString()
                    URI = request.RequestUri.ToString()
  +                 RequestHeaders = convertHeaders request.Headers
  +                 ContentHeaders = getContentHeaders request.Content
                    Body = requestBody
  -                 Headers = convertHeaders request.Headers}
  +                 }
           }
   
       let convertResponseAsync (response: HttpResponseMessage) =
  
positive.code:             let! responseBody = getContentAsStringAsync response.Content
              return
                  {Status = {Code = response.StatusCode; Message = response.ReasonPhrase}
                   Headers = convertHeaders response.Headers
                   Body = responseBody
                   HttpVersion = response.Version}
          }
  
negative.code:         static member ToJSON (x: Response) =
              jobj [
                  "status" .= x.Status
                  "responseHeaders" .= x.ResponseHeaders
                  "contentHeaders" .= x.ContentHeaders
                  "body" .= x.Body
                  "httpVersion" .= x.HttpVersion.ToString()
              ]
  