40/137: gnu: Add rust-windows-implement-0.39.

[guix-commits]

efraim pushed a commit to branch rust-team
in repository guix.

commit 41d238ea996b69abfbb599db1e664448f23c13f5
Author: Jaeme Sifat <jaeme@runbox.com>
AuthorDate: Mon Oct 30 22:52:19 2023 -0400

    gnu: Add rust-windows-implement-0.39.
    
    * gnu/packages/crates-io.scm (rust-windows-implement-0.39): New variable.
    (rust-windows-implement-0.32): Inherit from rust-windows-implement-0.46.
    
    Change-Id: I180826bc7ba0a91b69553286e364bf79537a24d2
    Signed-off-by: Efraim Flashner <efraim@flashner.co.il>
---
 gnu/packages/crates-io.scm | 25 ++++++++++++++++++-------
 1 file changed, 18 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/crates-io.scm b/gnu/packages/crates-io.scm
index 9bf629ab0a..8e930d628b 100644
--- a/gnu/packages/crates-io.scm
+++ b/gnu/packages/crates-io.scm
@@ -89105,8 +89105,25 @@ windows crate.")
         ("rust-quote" ,rust-quote-1)
         ("rust-syn" ,rust-syn-1))))))
 
+(define-public rust-windows-implement-0.39
+  (package
+    (inherit rust-windows-implement-0.46)
+    (name "rust-windows-implement")
+    (version "0.39.0")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (crate-uri "windows-implement" version))
+       (file-name (string-append name "-" version ".tar.gz"))
+       (sha256
+        (base32 "1ryfy5sgf26xmflf33zabzqn10pp6pjrbz75yh2xrdcwa27zj0ds"))))
+    (arguments
+     `(#:cargo-inputs (("rust-syn" ,rust-syn-1)
+                       ("rust-windows-tokens" ,rust-windows-tokens-0.39))))))
+
 (define-public rust-windows-implement-0.32
   (package
+    (inherit rust-windows-implement-0.46)
     (name "rust-windows-implement")
     (version "0.32.0")
     (source (origin
@@ -89116,17 +89133,11 @@ windows crate.")
               (sha256
                (base32
                 "0f3lnjs9rlihin9cjf9y7np1x15c0v09v0cwlw1n7c30145xmciz"))))
-    (build-system cargo-build-system)
     (arguments
      `(#:skip-build? #t
        #:cargo-inputs
        (("rust-syn" ,rust-syn-1)
-        ("rust-windows-tokens" ,rust-windows-tokens-0.32))))
-    (home-page "https://github.com/microsoft/windows-rs";)
-    (synopsis "Implement macro for the windows crate")
-    (description "This package provides the implement macro for the windows
-crate.")
-    (license (list license:expat license:asl2.0))))
+        ("rust-windows-tokens" ,rust-windows-tokens-0.32))))))
 
 (define-public rust-windows-interface-0.48
   (package