objective categorical abstract machine language personal data server
Disable noisy logging
+9
-1
+9
-1
bin/main.ml
+9
-1
bin/main.ml
···
203
203
204
204
let serve () =
205
205
Printexc.record_backtrace true ;
206
+
Dream.initialize_log ~level:Env.log_level () ;
207
+
List.iter (fun src ->
208
+
match Logs.Src.name src with
209
+
(* useless noise on debug level *)
210
+
| "cohttp.lwt.io" | "cohttp.lwt.server" | "tls.tracing" | "tls.config" ->
211
+
Logs.Src.set_level src None
212
+
| _ ->
213
+
() )
214
+
@@ Logs.Src.list () ;
206
215
let%lwt db = Data_store.connect ~create:true () in
207
216
S3.Backup.start () ;
208
-
Dream.initialize_log ~level:`Debug () ;
209
217
Dream.serve ~interface:"0.0.0.0" ~port:8008
210
218
@@ Dream.pipeline
211
219
[ Dream.logger