From: Jérémie D. <Ba...@us...> - 2010-01-30 19:03:10
|
This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "krobot". The branch, master has been updated via 48ea6eff525ebbd96d2fa14de78f5bff22c6b782 (commit) from 182605606955fdaa815cce416d69a3780ffd9280 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 48ea6eff525ebbd96d2fa14de78f5bff22c6b782 Author: Jérémie Dimino <je...@di...> Date: Sat Jan 30 20:02:30 2010 +0100 allow to use the Debug log level ----------------------------------------------------------------------- Changes: diff --git a/PC_Mainboard/driver/src/driver.ml b/PC_Mainboard/driver/src/driver.ml index 7b5b7ff..1ebef34 100644 --- a/PC_Mainboard/driver/src/driver.ml +++ b/PC_Mainboard/driver/src/driver.ml @@ -444,7 +444,7 @@ end lwt () = (* Be verbose: *) - Lwt_log.set_level !Lwt_log.default Lwt_log.Info; + Lwt_log.set_level !Lwt_log.default (min Lwt_log.Info Lwt_log.default_level); lwt bus = Lazy.force OBus_bus.system in @@ -471,7 +471,10 @@ lwt () = else begin Log#info "starting krobot driver in daemon mode"; (* In daemon mode, send messages to syslog: *) - Lwt_log.default := Lwt_log.syslog ~level:Lwt_log.Info ~facility:`Daemon (); + Lwt_log.default := Lwt_log.syslog + ~level:(min Lwt_log.Info Lwt_log.default_level) + ~facility:`Daemon + (); (* Become a daemon. Keep stderr for possible error messages of libusb. *) Lwt_unix.daemonize ~keep_stderr:true () hooks/post-receive -- krobot |