Merge pull request #49 from hannesm/mirage-crypto-011

update to mirage-crypto-rng 0.11.0 API
mirage · Feb 16, 2023 · 69000f9 · 69000f9
2 parents 7be0fcc + 9e8591e
commit 69000f9
Show file tree

Hide file tree

Showing 6 changed files with 6 additions and 6 deletions.
diff --git a/awa.opam b/awa.opam
@@ -19,7 +19,7 @@ depends: [
  "ppx_sexp_conv"
  "ppx_cstruct"
  "mirage-crypto" {>= "0.8.1"}
- "mirage-crypto-rng"
+ "mirage-crypto-rng" {>= "0.11.0"}
  "mirage-crypto-pk"
  "mirage-crypto-ec" {>= "0.10.0"}
  "x509" {>= "0.15.2"}

diff --git a/test/awa_gen_key.ml b/test/awa_gen_key.ml
@@ -1,6 +1,6 @@
 
 let gen_key seed typ =
- Mirage_crypto_rng_unix.initialize ();
+ Mirage_crypto_rng_unix.initialize (module Mirage_crypto_rng.Fortuna);
  let b64s x = Cstruct.to_string x |> Base64.encode_string in
  let seed = match seed with
  | None -> b64s (Mirage_crypto_rng.generate 30)

diff --git a/test/awa_lwt_server.ml b/test/awa_lwt_server.ml
@@ -63,7 +63,7 @@ let rec wait_connection priv_key listen_fd server_port =
  wait_connection priv_key listen_fd server_port
 
 let main =
- Mirage_crypto_rng_unix.initialize ();
+ Mirage_crypto_rng_unix.initialize (module Mirage_crypto_rng.Fortuna);
  let g = Mirage_crypto_rng.(create ~seed:(Cstruct.of_string "180586") (module Fortuna)) in
  let (ec_priv,_) = Mirage_crypto_ec.Ed25519.generate ~g () in
  let priv_key = Awa.Hostkey.Ed25519_priv (ec_priv) in

diff --git a/test/awa_test_client.ml b/test/awa_test_client.ml
@@ -39,7 +39,7 @@ let write_cstruct fd buf =
 
 let jump _ user seed typ keyfile authenticator host port =
  let ( let* ) = Result.bind in
- Mirage_crypto_rng_unix.initialize ();
+ Mirage_crypto_rng_unix.initialize (module Mirage_crypto_rng.Fortuna);
  let fd = Unix.(socket PF_INET SOCK_STREAM 0) in
  Unix.(connect fd (ADDR_INET (inet_addr_of_string host, port)));
  match

diff --git a/test/awa_test_server.ml b/test/awa_test_server.ml
@@ -136,7 +136,7 @@ let rec wait_connection priv_key listen_fd server_port =
  wait_connection priv_key listen_fd server_port
 
 let () =
- Mirage_crypto_rng_unix.initialize ();
+ Mirage_crypto_rng_unix.initialize (module Mirage_crypto_rng.Fortuna);
  let g = Mirage_crypto_rng.(create ~seed:(Cstruct.of_string "180586") (module Fortuna)) in
  let (ec_priv,_) = Mirage_crypto_ec.Ed25519.generate ~g () in
  let priv_key = Awa.Hostkey.Ed25519_priv (ec_priv) in

diff --git a/test/test.ml b/test/test.ml
@@ -608,7 +608,7 @@ let all_tests = [
 ]
 
 let _ =
- Mirage_crypto_rng_unix.initialize ();
+ Mirage_crypto_rng_unix.initialize (module Mirage_crypto_rng.Fortuna);
  Sys.set_signal Sys.sigalrm (Sys.Signal_handle (fun _ -> failwith "timeout"));
  Unix.chmod "data/awa_test_rsa" 0o600;
  List.iter run_test all_tests;