From de38c3674b2805ecccbcb675e6ea43f69e19e72a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Reynir=20Bj=C3=B6rnsson?= Date: Tue, 4 Feb 2025 11:39:44 +0100 Subject: [PATCH] Update to mirage-crypto-rng>=1.2.0 --- bin/builder_db_app.ml | 2 +- bin/builder_web_app.ml | 2 +- builder-web.opam | 2 +- test/test_builder_db.ml | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/bin/builder_db_app.ml b/bin/builder_db_app.ml index d11e4d0..caf9e1e 100644 --- a/bin/builder_db_app.ml +++ b/bin/builder_db_app.ml @@ -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; diff --git a/bin/builder_web_app.ml b/bin/builder_web_app.ml index eabc600..fff9e57 100644 --- a/bin/builder_web_app.ml +++ b/bin/builder_web_app.ml @@ -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 diff --git a/builder-web.opam b/builder-web.opam index 32e0f33..18ceb87 100644 --- a/builder-web.opam +++ b/builder-web.opam @@ -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"} diff --git a/test/test_builder_db.ml b/test/test_builder_db.ml index 3bd8a15..d8f5f72 100644 --- a/test/test_builder_db.ml +++ b/test/test_builder_db.ml @@ -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 -- 2.47.1