Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[enhance] Http_client: doesn't log by default, use the new HTTP_CLIEN…

…T_DEBUG debug variable if needed.
  • Loading branch information...
commit 4c6cb9f15a57967af2b3130a7c6ac87321af46f7 1 parent 70f3d84
@cedricss cedricss authored
View
1  libbase/debugVariables.ml
@@ -92,6 +92,7 @@ let hlnet_debug = var "hlnet_debug"
let hldir_debug = var "hldir_debug"
let http_debug = var "http_debug"
let http_no_cookie = var "http_no_cookie"
+let http_client_debug = var "http_client_debug"
let js_imp = var "js_imp"
let js_match_compilation = var "js_match_compilation"
let js_no_split = var "js_no_split"
View
6 libbase/debugVariables.mli
@@ -540,6 +540,10 @@ val http_debug : debug_var
*)
val http_no_cookie : debug_var
+(**
+ {b MLSTATE_HTTP_CLIENT_DEBUG}
+*)
+val http_client_debug : debug_var
(**
{b Javascript Compilation}
@@ -600,7 +604,7 @@ val low_level_db_log : debug_var
(**
{b MLSTATE_MIMETYPE_DEBUG}
- display the debug on mimetype resolution
+ display the debug on mimetype resolution
*)
val mimetype_debug : debug_var
View
2  libnet/http_client.ml
@@ -126,7 +126,9 @@ let place_request (sched: Scheduler.t) ~hostname ~port ~path
#<If:TESTING $minlevel 0>
Printf.printf "%s\n" command;
#<End>;
+ #<If:HTTP_CLIENT_DEBUG>
Logger.info "[http_client] %s" command;
+ #<End>;
if has_port then
Logger.warning "[Http_client] hostname contains ':' but it shouldn't, please check";
Network.connect sched port_spec secure_mode ~err_cont start
Please sign in to comment.
Something went wrong with that request. Please try again.