log reporter style renderer
This commit is contained in:
parent
7a5fe47162
commit
f394c24e3b
3 changed files with 47 additions and 58 deletions
|
|
@ -50,11 +50,11 @@ let routes =
|
|||
|
||||
module RNG = Mirage_crypto_rng.Fortuna
|
||||
|
||||
let log_level = Some Logs.Info
|
||||
let t0 = Mkernel.clock_monotonic ()
|
||||
|
||||
let () =
|
||||
let ( let@ ) finally fn = Fun.protect ~finally fn in
|
||||
Log_reporter.setup log_level;
|
||||
Log_reporter.setup ~t0;
|
||||
let rng =
|
||||
let rng () = Mirage_crypto_rng_mkernel.initialize (module RNG) in
|
||||
Mkernel.map rng Mkernel.[]
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue