fix setting of headers

close #6
This commit is contained in:
Simon Cruanes 2021-10-07 13:09:23 -04:00
parent 1a21521b35
commit c568f9e4e3
No known key found for this signature in database
GPG key ID: 4AC01D0849AA62B6

View file

@ -90,7 +90,7 @@ let _apply_config (self:t) (config:Config.t) : unit =
let _set_headers (self:t) (headers: _ list) : unit =
let headers =
List.map (fun (k,v) -> k ^ ": " ^ v ^ "\r\n") headers
List.map (fun (k,v) -> k ^ ": " ^ v) headers
in
Curl.set_httpheader self headers;
()