fix: initialize mirage crypto rng

eWert-Online · Sep 21, 2024 · 0e9bf87 · 0e9bf87
1 parent 813de28
commit 0e9bf87
Show file tree

Hide file tree

Showing 4 changed files with 14 additions and 1 deletion.
diff --git a/bin/Main.ml b/bin/Main.ml
@@ -148,6 +148,8 @@ let default_cmd =
     handle_response
     @@ Eio_main.run
     @@ fun env ->
+    Mirage_crypto_rng_eio.run (module Mirage_crypto_rng.Fortuna) env
+    @@ fun () ->
     Lwt_eio.with_event_loop ~clock:(Eio.Stdenv.clock env)
     @@ fun _ -> Eio.Switch.run @@ fun sw -> run ~sw ~env
   in

diff --git a/bin/dune b/bin/dune
@@ -4,4 +4,13 @@
  (public_name osnap)
  (package osnap)
  (ocamlopt_flags -O3)
- (libraries OSnap cmdliner lwt_eio eio eio.core eio_main fmt))
+ (libraries
+  OSnap
+  cmdliner
+  mirage-crypto-rng
+  mirage-crypto-rng-eio
+  lwt_eio
+  eio
+  eio.core
+  eio_main
+  fmt))
diff --git a/dune-project b/dune-project
@@ -23,6 +23,7 @@
   eio_main
   lwt_eio
   httpun-eio
+  mirage-crypto-rng-eio
   base64
   cdp
   cmdliner

diff --git a/osnap.opam b/osnap.opam
@@ -13,6 +13,7 @@ depends: [
   "eio_main"
   "lwt_eio"
   "httpun-eio"
+  "mirage-crypto-rng-eio"
   "base64"
   "cdp"
   "cmdliner"