Skip to content

Don't use chunked encoding for the RPC calls #70

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 1 commit into from
May 8, 2015
Merged

Don't use chunked encoding for the RPC calls #70

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
7 changes: 5 additions & 2 deletions idl/xenvm_client.ml
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -21,14 +21,17 @@ module Rpc = struct

(* Retry up to 5 times with 1s intervals *)
let rpc call =
let body = Jsonrpc.string_of_call call |> Cohttp_lwt_body.of_string in
let body_str = Jsonrpc.string_of_call call in
let body = Cohttp_lwt_body.of_string body_str in
let rec retry attempts_remaining last_exn = match attempts_remaining, last_exn with
| 0, Some e -> fail e
| _, _ ->
begin
Lwt.catch
(fun () ->
Client.post (Uri.of_string !uri) ~body
let headers = Cohttp.Header.init () in
let headers = Cohttp.Header.add headers "content-length" (String.length body_str |> string_of_int) in
Client.post (Uri.of_string !uri) ~headers ~chunked:false ~body
>>= fun x ->
return (`Ok x))
(function
Expand Down