simon/ezcurl
1
0
Fork 0
mirror of https://github.com/c-cube/ezcurl.git synced 2025-12-06 11:15:44 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

minor changes to improve compatibility

Browse source
This commit is contained in:
Simon Cruanes 2021-09-29 08:54:04 -04:00 • committed by GitHub
parent 031e903d4d
commit 6fcbf76635
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/core/Ezcurl_core.ml
View file

@ -18,7 +18,7 @@ module Config = struct
authmethod=None; authmethod=None;
username=None; username=None;
password=None; password=None;
user_agent=Some "Ezcurl"; user_agent=Some "curl";
} }
let password x self = {self with password=Some x} let password x self = {self with password=Some x}
@ -47,7 +47,7 @@ module Config = struct
} = self in } = self in
Format.fprintf out Format.fprintf out
"{@[verbose=%B;@ max_redirects=%d;@ follow_location=%B;@ \ "{@[verbose=%B;@ max_redirects=%d;@ follow_location=%B;@ \
username=%s;@ password=%s;@ authmethod=%s; user_agent=%s@]}" username=%s;@ password=%s;@ authmethod=%s;@ user_agent=%s@]}"
verbose max_redirects follow_location verbose max_redirects follow_location
(str_of_str_opt username) (str_of_str_opt password) (str_of_str_opt username) (str_of_str_opt password)
(match authmethod with (match authmethod with
@ -82,7 +82,7 @@ let _apply_config (self:t) (config:Config.t) : unit =
Curl.set_verbose self verbose; Curl.set_verbose self verbose;
Curl.set_maxredirs self max_redirects; Curl.set_maxredirs self max_redirects;
Curl.set_followlocation self follow_location; Curl.set_followlocation self follow_location;
Option.iter (fun user_agent -> Curl.set_useragent self user_agent) user_agent; opt_iter (fun user_agent -> Curl.set_useragent self user_agent) user_agent;
opt_iter authmethod ~f:(Curl.set_httpauth self); opt_iter authmethod ~f:(Curl.set_httpauth self);
opt_iter username ~f:(Curl.set_username self); opt_iter username ~f:(Curl.set_username self);
opt_iter password ~f:(Curl.set_password self); opt_iter password ~f:(Curl.set_password self);