From 765a369c5e25484bb47934ec65989e27859ef80e Mon Sep 17 00:00:00 2001
From: Hilton Chain <hako@ultrarare.space>
Date: Tue, 22 Apr 2025 20:19:58 +0800
Subject: [PATCH] =?UTF-8?q?build-system:=20cargo:=20Export=20=E2=80=98carg?=
 =?UTF-8?q?o-triplet=E2=80=99.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

This will make Rust cross compilation support in other build systems easier.

* guix/build-system/cargo.scm (cargo-triplet): Export.
Make ‘target’ argument optional.

Change-Id: I226bf4a7d8065eb7911da148d0cdf3352a47bde6
---
 guix/build-system/cargo.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/guix/build-system/cargo.scm b/guix/build-system/cargo.scm
index 659ad95a357c1b365bc2dce94e4f32197be65b5d..045809874c1e51b687bf16b8563b2af72aeb3887 100644
--- a/guix/build-system/cargo.scm
+++ b/guix/build-system/cargo.scm
@@ -51,7 +51,8 @@
             crate-name->package-name
             crate-source
             define-cargo-inputs
-            cargo-inputs))
+            cargo-inputs
+            cargo-triplet))
 
 (define %crate-base-url
   (make-parameter "https://crates.io"))
@@ -118,7 +119,9 @@ unavailable."
   (let ((module (resolve-interface '(gnu packages rust))))
     (module-ref module 'make-rust-sysroot)))
 
-(define (cargo-triplet target)
+(define* (cargo-triplet #:optional
+                        (target (or (%current-target-system)
+                                    (%current-system))))
   (false-if-exception
     (platform-rust-target
       (lookup-platform-by-target-or-system target))))