This is an automated email from the git hooks/post-receive script.

guix_mirror_bot pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 520ba1b904 gnu: target->hare-arch: Check for system support before 
target support.
520ba1b904 is described below

commit 520ba1b90467cc9839d9cad9a097c0d5600aaff5
Author: Efraim Flashner <[email protected]>
AuthorDate: Tue Sep 2 19:23:10 2025 +0300

    gnu: target->hare-arch: Check for system support before target support.
    
    This fixes bug #2449.
    
    * gnu/packages/hare.scm (target->hare-arch): Only when building on a
    supported system check if the target is supported by hare.
    
    Change-Id: I9bb2bd32a204043ce2702a206598398fbd0541eb
---
 gnu/packages/hare.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/hare.scm b/gnu/packages/hare.scm
index 4af08237f5..02b884527d 100644
--- a/gnu/packages/hare.scm
+++ b/gnu/packages/hare.scm
@@ -39,10 +39,13 @@
 
 (define* (target->hare-arch #:optional (target (or (%current-target-system)
                                                    (%current-system))))
-  (cond ((target-x86-64? target) "x86_64")
-        ((target-aarch64? target) "aarch64")
-        ((target-riscv64? target) "riscv64")
-        (else (error "unsupported hare target" target))))
+  ;; Only error on supported systems, so we don't break guix pull.
+  (if (member (%current-system) hare-supported-systems)
+      (cond ((target-x86-64? target) "x86_64")
+            ((target-aarch64? target) "aarch64")
+            ((target-riscv64? target) "riscv64")
+            (else (error "unsupported hare target" target)))
+      ""))
 
 (define (cross-target? target) ; only has to work for supported arches
   (and target (not (if (%current-target-system)

Reply via email to