From 7217c9348679d00ebf80fe5285564f6bb198a8fd Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 11 Dec 2023 23:11:26 +0100 Subject: gnu: libgpg-error: Do not assume that target is a triplet. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Fixes a bug exposed with be5ec2ebb4bde4b4f702a30f08849dff05cceccd, which introduces the “avr” target, which has no hyphen. * gnu/packages/gnupg.scm (libgpg-error)[arguments]: In ‘cross-symlinks’ phase, adjust code to deal with TARGET lacking a hyphen. Change-Id: I1aff6a94a7c92626f931c459d1dc0509f9bcfc00 --- gnu/packages/gnupg.scm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'gnu/packages/gnupg.scm') diff --git a/gnu/packages/gnupg.scm b/gnu/packages/gnupg.scm index a5b8587a14..2b6a5ec796 100644 --- a/gnu/packages/gnupg.scm +++ b/gnu/packages/gnupg.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès +;;; Copyright © 2012-2021, 2023 Ludovic Courtès ;;; Copyright © 2013, 2015, 2018 Andreas Enge ;;; Copyright © 2014, 2018 Eric Bavier ;;; Copyright © 2014, 2015, 2016, 2020 Mark H Weaver @@ -130,11 +130,10 @@ (symlink (string-append "lock-obj-pub." triplet ".h") (string-append "src/syscfg/lock-obj-pub." source ".h"))) - #$(let* ((target (%current-target-system)) - (architecture - (string-take target (string-index target #\-)))) + #$(let ((target (%current-target-system))) (cond ((target-linux? target) - (match architecture + (match (string-take target + (string-index target #\-)) ("armhf" `(link "arm-unknown-linux-gnueabi" "linux-gnu")) ("mips64el" -- cgit v1.2.3