swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add result.ml; polymorphic variant errors + refacto

Browse source
This commit is contained in:
swrup 2026-03-26 06:23:42 +01:00 • committed by Swrup
parent 9fd3b5a3cc
commit 42b0ec1445
36 changed files with 949 additions and 954 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/mte.ml
View file

@ -71,9 +71,11 @@ let routes =
module RNG = Mirage_crypto_rng.Fortuna
let log_level = Some Logs.Info
let () =
let ( let@ ) finally fn = Fun.protect ~finally fn in
Log_reporter.setup (Some Logs.Info);
Log_reporter.setup log_level;
let rng =
let rng () = Mirage_crypto_rng_mkernel.initialize (module RNG) in
Mkernel.map rng Mkernel.[]