From 36a70be9a0398c8e2732de119730cc9ddc93f61e Mon Sep 17 00:00:00 2001
From: Jan Rochel <jrochel@besport.com>
Date: Wed, 19 Jun 2019 17:13:07 +0200
Subject: [PATCH] Ocsigen_config: be a bit more verbose on -v

---
 src/baselib/ocsigen_config.ml.in | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/baselib/ocsigen_config.ml.in b/src/baselib/ocsigen_config.ml.in
index 14e7658d2..e59d37f42 100644
--- a/src/baselib/ocsigen_config.ml.in
+++ b/src/baselib/ocsigen_config.ml.in
@@ -79,7 +79,9 @@ let set_syslog_facility f = syslog_facility := f; logdir := None
 let set_configfile s = config_file := s
 let set_pidfile s = pidfile := Some s
 let set_mimefile s = mimefile := s
-let set_verbose () = verbose := true
+let set_verbose () =
+  verbose := true;
+  Lwt_log.add_rule "*" Lwt_log.Info
 let set_silent () = silent := true
 let set_daemon () = set_silent (); daemon := true
 let set_veryverbose () =