Skip to content
Browse files

[fix] httpClient: fix for post request

  • Loading branch information...
1 parent 33e7939 commit 278aa186026a7afb433cb1834fda0b78e2a5b843 @Aqua-Ye Aqua-Ye committed
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 =

0 comments on commit 278aa18

Please sign in to comment.
Something went wrong with that request. Please try again.