From 0a7a20410de4573ebf5dcd0e1da5dde51c715468 Mon Sep 17 00:00:00 2001
From: Luis Guilherme Coelho <lgcoelho@disroot.org>
Date: Thu, 9 May 2024 11:26:53 -0300
Subject: [PATCH] packages: crates-io: Remove pre-built windows binaries from
 various package sources

---
 radix/packages/crates-io.scm | 36 +++++++++++++++++++++++++++++-------
 1 file changed, 29 insertions(+), 7 deletions(-)

diff --git a/radix/packages/crates-io.scm b/radix/packages/crates-io.scm
index 7836f1b..aaa5b6f 100644
--- a/radix/packages/crates-io.scm
+++ b/radix/packages/crates-io.scm
@@ -1088,7 +1088,11 @@ alternative to mechanisms like backtracing.")
         (uri (crate-uri "windows_aarch64_gnullvm" version))
         (file-name (string-append name "-" version ".tar.gz"))
         (sha256
-          (base32 "1n05v7qblg1ci3i567inc7xrkmywczxrs1z3lj3rkkxw18py6f1b"))))
+          (base32 "1n05v7qblg1ci3i567inc7xrkmywczxrs1z3lj3rkkxw18py6f1b"))
+        (modules '((guix build utils)))
+        (snippet
+         '(begin
+            (for-each delete-file (find-files "." "\\.a$"))))))
     (build-system cargo-build-system)
     (arguments `(#:skip-build? #t))
     (home-page "https://github.com/microsoft/windows-rs")
@@ -1107,7 +1111,9 @@ alternative to mechanisms like backtracing.")
         (uri (crate-uri "windows_aarch64_msvc" version))
         (file-name (string-append name "-" version ".tar.gz"))
         (sha256
-          (base32 "1g5l4ry968p73g6bg6jgyvy9lb8fyhcs54067yzxpcpkf44k2dfw"))))
+          (base32 "1g5l4ry968p73g6bg6jgyvy9lb8fyhcs54067yzxpcpkf44k2dfw"))
+        (modules '((guix build utils)))
+        (snippet '(delete-file "lib/windows.0.48.5.lib"))))
     (build-system cargo-build-system)
     (arguments `(#:skip-build? #t))
     (home-page "https://github.com/microsoft/windows-rs")
@@ -1127,7 +1133,11 @@ crate.")
         (uri (crate-uri "windows_i686_gnu" version))
         (file-name (string-append name "-" version ".tar.gz"))
         (sha256
-          (base32 "0gklnglwd9ilqx7ac3cn8hbhkraqisd0n83jxzf9837nvvkiand7"))))
+          (base32 "0gklnglwd9ilqx7ac3cn8hbhkraqisd0n83jxzf9837nvvkiand7"))
+        (modules '((guix build utils)))
+        (snippet
+         '(begin
+            (for-each delete-file (find-files "." "\\.a$"))))))
     (build-system cargo-build-system)
     (arguments `(#:skip-build? #t))
     (home-page "https://github.com/microsoft/windows-rs")
@@ -1146,7 +1156,9 @@ crate.")
         (uri (crate-uri "windows_i686_msvc" version))
         (file-name (string-append name "-" version ".tar.gz"))
         (sha256
-          (base32 "01m4rik437dl9rdf0ndnm2syh10hizvq0dajdkv2fjqcywrw4mcg"))))
+          (base32 "01m4rik437dl9rdf0ndnm2syh10hizvq0dajdkv2fjqcywrw4mcg"))
+        (modules '((guix build utils)))
+        (snippet '(delete-file "lib/windows.0.48.5.lib"))))
     (build-system cargo-build-system)
     (arguments `(#:skip-build? #t))
     (home-page "https://github.com/microsoft/windows-rs")
@@ -1165,7 +1177,11 @@ crate.")
         (uri (crate-uri "windows_x86_64_gnu" version))
         (file-name (string-append name "-" version ".tar.gz"))
         (sha256
-          (base32 "13kiqqcvz2vnyxzydjh73hwgigsdr2z1xpzx313kxll34nyhmm2k"))))
+          (base32 "13kiqqcvz2vnyxzydjh73hwgigsdr2z1xpzx313kxll34nyhmm2k"))
+        (modules '((guix build utils)))
+        (snippet
+         '(begin
+            (for-each delete-file (find-files "." "\\.a$"))))))
     (build-system cargo-build-system)
     (arguments `(#:skip-build? #t))
     (home-page "https://github.com/microsoft/windows-rs")
@@ -1184,7 +1200,11 @@ crate.")
         (uri (crate-uri "windows_x86_64_gnullvm" version))
         (file-name (string-append name "-" version ".tar.gz"))
         (sha256
-          (base32 "1k24810wfbgz8k48c2yknqjmiigmql6kk3knmddkv8k8g1v54yqb"))))
+          (base32 "1k24810wfbgz8k48c2yknqjmiigmql6kk3knmddkv8k8g1v54yqb"))
+        (modules '((guix build utils)))
+        (snippet
+         '(begin
+            (for-each delete-file (find-files "." "\\.a$"))))))
     (build-system cargo-build-system)
     (arguments `(#:skip-build? #t))
     (home-page "https://github.com/microsoft/windows-rs")
@@ -1203,7 +1223,9 @@ crate.")
         (uri (crate-uri "windows_x86_64_msvc" version))
         (file-name (string-append name "-" version ".tar.gz"))
         (sha256
-          (base32 "0f4mdp895kkjh9zv8dxvn4pc10xr7839lf5pa9l0193i2pkgr57d"))))
+          (base32 "0f4mdp895kkjh9zv8dxvn4pc10xr7839lf5pa9l0193i2pkgr57d"))
+        (modules '((guix build utils)))
+        (snippet '(delete-file "lib/windows.0.48.5.lib"))))
     (build-system cargo-build-system)
     (arguments `(#:skip-build? #t))
     (home-page "https://github.com/microsoft/windows-rs")