simon/ezcurl
1
0
Fork 0
mirror of https://github.com/c-cube/ezcurl.git synced 2025-12-06 03:05:31 -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
parent 7b0c8230ae
commit fe35e81fe0
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;
username=None;
password=None;
user_agent=Some "Ezcurl";
user_agent=Some "curl";
}
let password x self = {self with password=Some x}
@ -47,7 +47,7 @@ module Config = struct
} = self in
Format.fprintf out
"{@[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
(str_of_str_opt username) (str_of_str_opt password)
(match authmethod with
@ -82,7 +82,7 @@ let _apply_config (self:t) (config:Config.t) : unit =
Curl.set_verbose self verbose;
Curl.set_maxredirs self max_redirects;
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 username ~f:(Curl.set_username self);
opt_iter password ~f:(Curl.set_password self);