Merge pull request 'Update to mirage-crypto-rng>=1.2.0' (!16) from fix-mirage-crypto into main

Reviewed-on: #16
This commit is contained in:
Reynir Björnsson 2025-02-04 17:56:44 +00:00
commit d6c0cd12ac
4 changed files with 4 additions and 4 deletions

View file

@ -1117,7 +1117,7 @@ let default_cmd, default_info =
Cmd.info ~doc "builder-db"
let () =
Mirage_crypto_rng_unix.initialize (module Mirage_crypto_rng.Fortuna);
Mirage_crypto_rng_unix.use_default ();
Cmdliner.Cmd.group
~default:default_cmd default_info
[ help_cmd; migrate_cmd;

View file

@ -120,7 +120,7 @@ let setup_app level influx port host datadir cachedir configdir run_batch_viz_fl
cachedir |> Option.fold ~none:Fpath.(datadir / "_cache") ~some:Fpath.v
in
let configdir = Fpath.v configdir in
let () = Mirage_crypto_rng_unix.initialize (module Mirage_crypto_rng.Fortuna) in
let () = Mirage_crypto_rng_unix.use_default () in
let () = init_influx "builder-web" influx in
let () =
if run_batch_viz_flag then

View file

@ -26,7 +26,7 @@ depends: [
"caqti" {>= "2.1.2"}
"caqti-lwt"
"caqti-driver-sqlite3"
"mirage-crypto-rng" {>= "0.11.0"}
"mirage-crypto-rng" {>= "1.2.0"}
"kdf"
"opam-core"
"opam-format" {>= "2.1.0"}

View file

@ -3,7 +3,7 @@ let ( >>| ) x f = Result.map f x
module type CONN = Caqti_blocking.CONNECTION
let () = Mirage_crypto_rng_unix.initialize (module Mirage_crypto_rng.Fortuna)
let () = Mirage_crypto_rng_unix.use_default ()
let iter f xs = List.fold_left (fun r x -> r >>= fun () -> f x) (Ok ()) xs
let get_opt message = function