Update to mirage-crypto-rng 1.0 API

inhabitedtype · Nov 28, 2024 · f7c4bcd · f7c4bcd
1 parent fcf4449
commit f7c4bcd
Show file tree

Hide file tree

Showing 6 changed files with 14 additions and 17 deletions.
diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
@@ -13,18 +13,18 @@ jobs:
         os:
           - ubuntu-latest
         ocaml-version:
-          - 4.07.0
+          - 4.13.0
 
     runs-on: ${{ matrix.os }}
 
     steps:
       - name: Checkout code
-        uses: actions/checkout@v2
+        uses: actions/checkout@v4
 
       - name: Use OCaml ${{ matrix.ocaml-version }}
-        uses: avsm/setup-ocaml@v1
+        uses: avsm/setup-ocaml@v3
         with:
-          ocaml-version: ${{ matrix.ocaml-version }}
+          ocaml-compiler: ${{ matrix.ocaml-version }}
 
       - name: Deps
         run: |
@@ -42,21 +42,19 @@ jobs:
         os:
           - ubuntu-latest
         ocaml-version:
-          - 4.08.1
-          - 4.10.2
-          - 4.11.2
-          - 4.12.0
+          - 4.14.0
+          - 5
 
     runs-on: ${{ matrix.os }}
 
     steps:
       - name: Checkout code
-        uses: actions/checkout@v2
+        uses: actions/checkout@v4
 
       - name: Use OCaml ${{ matrix.ocaml-version }}
-        uses: avsm/setup-ocaml@v1
+        uses: avsm/setup-ocaml@v3
         with:
-          ocaml-version: ${{ matrix.ocaml-version }}
+          ocaml-compiler: ${{ matrix.ocaml-version }}
 
       - name: Deps
         run: |

diff --git a/backends/postgresql/session_postgresql.ml b/backends/postgresql/session_postgresql.ml
@@ -63,7 +63,7 @@ let connect ?host ?hostaddr ?port ?dbname ?user ?password ?options ?tty ?require
   new Postgresql.connection ?host ?hostaddr ?port ?dbname ?user ?password ?options ?tty ?requiressl ?conninfo ?startonly ()
 
 let gensym () =
-  Base64.encode_string (Cstruct.to_string (Mirage_crypto_rng.generate 30))
+  Base64.encode_string (Mirage_crypto_rng.generate 30)
 
 let now () =
   Int64.of_float (Unix.time ())

diff --git a/backends/redis/lwt/session_redis_lwt.ml b/backends/redis/lwt/session_redis_lwt.ml
@@ -52,7 +52,7 @@ let _default_period =
   Int64.of_int (60 * 60 * 24 * 7)
 
 let gensym () =
-  Base64.encode_string (Cstruct.to_string (Mirage_crypto_rng.generate 30))
+  Base64.encode_string (Mirage_crypto_rng.generate 30)
 
 let redis_key k = "session:" ^ k
 

diff --git a/lib/memory.ml b/lib/memory.ml
@@ -44,7 +44,7 @@ type t =
   ; mutable default_period : period }
 
 let gensym () =
-  Base64.encode_string (Cstruct.to_string (Mirage_crypto_rng.generate 30))
+  Base64.encode_string (Mirage_crypto_rng.generate 30)
 
 let create () =
   { store = Hashtbl.create 10

diff --git a/lib_test/memory/test.ml b/lib_test/memory/test.ml
@@ -3,5 +3,5 @@ module Backend = struct
   let name = "memory"
 end
 
-let () = Mirage_crypto_rng_unix.initialize ()
+let () = Mirage_crypto_rng_unix.initialize (module Mirage_crypto_rng.Fortuna)
 module Test = Test_session.Make(Backend)
diff --git a/session.opam b/session.opam
@@ -9,8 +9,7 @@ depends: [
   "ocaml" {>= "4.07.0"}
   "base-unix"
   "dune" {>= "1.0"}
-  "mirage-crypto"
-  "mirage-crypto-rng"
+  "mirage-crypto-rng" {>= "1.0.0"}
   "base64"
   "ounit" {with-test & >= "1.0.2"}
 ]