Remove XenStore debug code

Was causing a Not_found error when used with the released version of
XenStore, which doesn't provide a log.

Reported by Cyril Levis.
This commit is contained in:
Thomas Leonard 2016-01-16 20:12:58 +00:00
parent 987834f6a6
commit 6fd7b01c65

View File

@ -11,10 +11,7 @@ module Log = (val Logs.src_log src : Logs.LOG)
let () =
let open Logs in
(* Set default log level *)
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)
set_level (Some Logs.Info)
module Main (Clock : V1.CLOCK) = struct
module Logs_reporter = Mirage_logs.Make(Clock)