Git-Mirrors/qubes-mirage-firewall
1
0
Fork 0
mirror of https://github.com/mirage/qubes-mirage-firewall.git synced 2024-12-29 00:56:13 -05:00
Code Issues Packages Projects Releases Wiki Activity

Turn off XenStore debug logging

Browse Source
This commit is contained in:
Thomas Leonard 2016-01-01 12:37:39 +00:00
parent 2002126b8b
commit d0f4189df8
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
unikernel.ml
View File

@ -11,10 +11,7 @@ module Log = (val Logs.src_log src : Logs.LOG)
let () = let () =
let open Logs in let open Logs in
(* Set default log level *) (* Set default log level *)
set_level (Some Logs.Info); set_level (Some Logs.Info)
(* Debug-level logging for XenStore while tracking down occasional EACCES error. *)
Src.list () |> List.find (fun src -> Src.name src = "xenstore.client") |> fun xs ->
Src.set_level xs (Some Debug)
module Main (Clock : V1.CLOCK) = struct module Main (Clock : V1.CLOCK) = struct
module Log_reporter = Mirage_logs.Make(Clock) module Log_reporter = Mirage_logs.Make(Clock)