From 3d12ab0c1d2b0299d4cc5b5082ec5285edba2337 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Wed, 29 Sep 2021 09:04:41 -0400 Subject: [PATCH] fix warning --- src/core/Ezcurl_core.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/core/Ezcurl_core.ml b/src/core/Ezcurl_core.ml index 25ad51c..b568b63 100644 --- a/src/core/Ezcurl_core.ml +++ b/src/core/Ezcurl_core.ml @@ -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; - opt_iter (fun user_agent -> Curl.set_useragent self user_agent) user_agent; + opt_iter user_agent ~f:(fun user_agent -> Curl.set_useragent self 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);