From 506bd05fbf34523c29394b00b9898f39140daa01 Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Mon, 18 Mar 2024 12:01:41 +0200
Subject: [PATCH] gnu: Add rust-ghash-0.4.

* gnu/packages/crates-crypto.scm (rust-ghash-0.4): New variable.

Change-Id: Ia5399806c24db13d798138f47317bbc175555714
---
 gnu/packages/crates-crypto.scm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/gnu/packages/crates-crypto.scm b/gnu/packages/crates-crypto.scm
index 23471ddaaf..7bef14b16d 100644
--- a/gnu/packages/crates-crypto.scm
+++ b/gnu/packages/crates-crypto.scm
@@ -2247,6 +2247,31 @@ (define-public rust-ghash-0.5
 authenticated encryption cipher.")
     (license (list license:expat license:asl2.0))))
 
+(define-public rust-ghash-0.4
+  (package
+    (inherit rust-ghash-0.5)
+    (name "rust-ghash")
+    (version "0.4.4")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (crate-uri "ghash" version))
+       (file-name (string-append name "-" version ".tar.gz"))
+       (sha256
+        (base32 "169wvrc2k9lw776x3pmqp76kc0w5717wz01bfg9rz0ypaqbcr0qm"))
+       (modules '((guix build utils)))
+       (snippet
+        '(begin (substitute* "Cargo.toml"
+                  (((string-append ">=([[:digit:]]+(\\.[[:digit:]]+)*),"
+                                   " <([[:digit:]]+(\\.[[:digit:]]+)*)")
+                    _ version _)
+                   (string-append ">=" version)))))))
+    (arguments
+     `(#:cargo-inputs (("rust-opaque-debug" ,rust-opaque-debug-0.3)
+                       ("rust-polyval" ,rust-polyval-0.5)
+                       ("rust-zeroize" ,rust-zeroize-1))
+       #:cargo-development-inputs (("rust-hex-literal" ,rust-hex-literal-0.3))))))
+
 (define-public rust-ghash-0.3
   (package
     (inherit rust-ghash-0.5)