Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[fix] httpClient: fix for post request

  • Loading branch information...
commit 278aa186026a7afb433cb1834fda0b78e2a5b843 1 parent 33e7939
@Aqua-Ye Aqua-Ye authored
Showing with 2 additions and 3 deletions.
  1. +2 −3 libnet/http_client.ml
View
5 libnet/http_client.ml
@@ -83,7 +83,7 @@ let place_request (sched: Scheduler.t) ~hostname ~port ~path
else Network.Unsecured
in
let port_spec = Network.make_port_spec ~protocol:http machine port in
- let command = Printf.sprintf "%s %s %s%s%sHost: %s%sUser-Agent: %s%s%s%s%s"
+ let command = Printf.sprintf "%s %s %s%s%sHost: %s%sUser-Agent: %s%s%s%s"
request_kind
path
http_version
@@ -93,9 +93,8 @@ let place_request (sched: Scheduler.t) ~hostname ~port ~path
Base.crlf
client_name
Base.crlf
- (if more_headers = "" then ""
+ (if more_headers = "" then Base.crlf
else Printf.sprintf "%s%s" more_headers Base.crlf)
- Base.crlf
data
in
let start conn =
Please sign in to comment.
Something went wrong with that request. Please try again.