From e4edd209996f98706f1c0f278e09b125d7ecf4c1 Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Wed, 22 Feb 2023 12:14:17 +0200
Subject: [PATCH] gnu: Add rust-clap-derive-4.

* gnu/packages/crates-io.scm (rust-clap-derive-4): New variable.
(rust-clap-derive-3): Inherit from rust-clap-derive-4.
---
 gnu/packages/crates-io.scm | 34 +++++++++++++++++++++++++++-------
 1 file changed, 27 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/crates-io.scm b/gnu/packages/crates-io.scm
index 54ecd9d7f8..eb4c0a7fe1 100644
--- a/gnu/packages/crates-io.scm
+++ b/gnu/packages/crates-io.scm
@@ -11031,8 +11031,34 @@ (define-public rust-clap-conf-0.1
 how to behave across the three main input sources")
     (license license:expat)))
 
+(define-public rust-clap-derive-4
+  (package
+    (name "rust-clap-derive")
+    (version "4.1.0")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (crate-uri "clap_derive" version))
+       (file-name (string-append name "-" version ".tar.gz"))
+       (sha256
+        (base32 "1s4c4005xsdw5zlq8z5h02mgjcsqgcd1ydxg6iird49fcxyjfjk8"))))
+    (build-system cargo-build-system)
+    (arguments
+     (list #:cargo-inputs
+           `(("rust-heck" ,rust-heck-0.4)
+             ("rust-proc-macro-error" ,rust-proc-macro-error-1)
+             ("rust-proc-macro2" ,rust-proc-macro2-1)
+             ("rust-quote" ,rust-quote-1)
+             ("rust-syn" ,rust-syn-1))))
+    (home-page "https://clap.rs/")
+    (synopsis "Procedural macro crate for Clap")
+    (description
+     "This package provides the procedural macro crate for Clap.")
+    (license (list license:expat license:asl2.0))))
+
 (define-public rust-clap-derive-3
   (package
+    (inherit rust-clap-derive-4)
     (name "rust-clap-derive")
     (version "3.2.18")
     (source
@@ -11042,7 +11068,6 @@ (define-public rust-clap-derive-3
        (file-name (string-append name "-" version ".tar.gz"))
        (sha256
         (base32 "0r9az0cl33xx0i9g18l56l3vd5ayjvcflvza2gdf8jwcab78n37a"))))
-    (build-system cargo-build-system)
     (arguments
      (list #:skip-build? #t
            #:cargo-inputs
@@ -11051,12 +11076,7 @@ (define-public rust-clap-derive-3
               ,rust-proc-macro-error-1)
              ("rust-proc-macro2" ,rust-proc-macro2-1)
              ("rust-quote" ,rust-quote-1)
-             ("rust-syn" ,rust-syn-1))))
-    (home-page "https://clap.rs/")
-    (synopsis "Procedural macro crate for Clap")
-    (description
-     "This package provides the procedural macro crate for Clap.")
-    (license (list license:expat license:asl2.0))))
+             ("rust-syn" ,rust-syn-1))))))
 
 (define-public rust-clap-3
   (package