From fd82f8a3308a526354c233b50cece1bd6a38a83f Mon Sep 17 00:00:00 2001
From: Herman Rimm <herman@rimm.ee>
Date: Sun, 18 Feb 2024 22:08:49 +0100
Subject: [PATCH] gnu: Add rust-curve25519-dalek-4.

* gnu/packages/crates-crypto.scm (rust-curve25519-dalek-4): Add
variable.
(rust-curve25519-dalek-3): Inherit from rust-curve25519-dalek-4.

Change-Id: I997b83ead6f5ad368af932b4f4bfa9d231c5d06e
Signed-off-by: Efraim Flashner <efraim@flashner.co.il>
---
 gnu/packages/crates-crypto.scm | 50 ++++++++++++++++++++++++++++------
 1 file changed, 42 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/crates-crypto.scm b/gnu/packages/crates-crypto.scm
index 7d35a755d0..8a824821f1 100644
--- a/gnu/packages/crates-crypto.scm
+++ b/gnu/packages/crates-crypto.scm
@@ -1816,8 +1816,49 @@ (define-public rust-ctr-0.6
      `(#:skip-build? #t
        #:cargo-inputs (("rust-cipher" ,rust-cipher-0.2))))))
 
+(define-public rust-curve25519-dalek-4
+  (package
+    (name "rust-curve25519-dalek")
+    (version "4.1.2")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (crate-uri "curve25519-dalek" version))
+       (file-name (string-append name "-" version ".tar.gz"))
+       (sha256
+        (base32 "0j7kqchcgycs4a11gvlda93h9w2jr05nn4hjpfyh2kn94a4pnrqa"))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:cargo-inputs
+       (("rust-cfg-if" ,rust-cfg-if-1)
+        ("rust-cpufeatures" ,rust-cpufeatures-0.2)
+        ("rust-curve25519-dalek-derive" ,rust-curve25519-dalek-derive-0.1)
+        ("rust-digest" ,rust-digest-0.10)
+        ("rust-ff" ,rust-ff-0.13)
+        ("rust-fiat-crypto" ,rust-fiat-crypto-0.2)
+        ("rust-group" ,rust-group-0.13)
+        ("rust-platforms" ,rust-platforms-3)
+        ("rust-rand-core" ,rust-rand-core-0.6)
+        ("rust-rustc-version" ,rust-rustc-version-0.4)
+        ("rust-serde" ,rust-serde-1)
+        ("rust-subtle" ,rust-subtle-2)
+        ("rust-zeroize" ,rust-zeroize-1))
+       #:cargo-development-inputs (("rust-bincode" ,rust-bincode-1)
+                                   ("rust-criterion" ,rust-criterion-0.5)
+                                   ("rust-hex" ,rust-hex-0.4)
+                                   ("rust-rand" ,rust-rand-0.8)
+                                   ("rust-rand-core" ,rust-rand-core-0.6)
+                                   ("rust-sha2" ,rust-sha2-0.10))))
+    (home-page "https://doc.dalek.rs/curve25519_dalek")
+    (synopsis "Group operations on ristretto255 and Curve25519")
+    (description
+     "This package provides a pure-Rust implementation of group operations
+on ristretto255 and Curve25519.")
+    (license license:bsd-3)))
+
 (define-public rust-curve25519-dalek-3
   (package
+    (inherit rust-curve25519-dalek-4)
     (name "rust-curve25519-dalek")
     (version "3.2.0")
     (source
@@ -1827,7 +1868,6 @@ (define-public rust-curve25519-dalek-3
        (file-name (string-append name "-" version ".tar.gz"))
        (sha256
         (base32 "0q8v97275cy6v4ly6y2qwv9a8phnpjg9sy8kv7r6mgdjfacxz7qb"))))
-    (build-system cargo-build-system)
     (arguments
      `(#:cargo-inputs
        (("rust-byteorder" ,rust-byteorder-1)
@@ -1843,13 +1883,7 @@ (define-public rust-curve25519-dalek-3
         ("rust-criterion" ,rust-criterion-0.3)
         ("rust-hex" ,rust-hex-0.4)
         ("rust-rand" ,rust-rand-0.7)
-        ("rust-sha2" ,rust-sha2-0.9))))
-    (home-page "https://dalek.rs/curve25519-dalek")
-    (synopsis "Group operations on ristretto255 and Curve25519")
-    (description
-     "This package provides a pure-Rust implementation of group operations on
-ristretto255 and Curve25519.")
-    (license license:bsd-3)))
+        ("rust-sha2" ,rust-sha2-0.9))))))
 
 (define-public rust-curve25519-dalek-derive-0.1
   (package