robur/builder-web
4
0
Fork 0
Code Issues Pull requests 1 Projects Releases Packages Wiki Activity Actions

Update to mirage-crypto-rng>=1.2.0 #16

Merged
reynir merged 1 commit from fix-mirage-crypto into main 2025-02-04 17:56:45 +00:00
Conversation 1 Commits 1 Files changed 4 +4 -4
4 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
bin/builder_db_app.ml
View file

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

2
bin/builder_web_app.ml
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 cachedir |> Option.fold ~none:Fpath.(datadir / "_cache") ~some:Fpath.v
in in
let configdir = Fpath.v configdir 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 () = init_influx "builder-web" influx in
let () = let () =
if run_batch_viz_flag then if run_batch_viz_flag then

2
builder-web.opam
View file

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

2
test/test_builder_db.ml
View file

@ -3,7 +3,7 @@ let ( >>| ) x f = Result.map f x
module type CONN = Caqti_blocking.CONNECTION 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 iter f xs = List.fold_left (fun r x -> r >>= fun () -> f x) (Ok ()) xs
let get_opt message = function let get_opt message = function