summary refs log tree commit diff
path: root/gnu/packages/firmware.scm
diff options
context:
space:
mode:
authorMarius Bakke <marius@gnu.org>2022-01-16 22:01:50 +0100
committerMarius Bakke <marius@gnu.org>2022-01-18 19:35:54 +0100
commitf11578e8d99648b2dd404001c9b82f27ff350c27 (patch)
tree656ae20f96e23dddb736a7f178f858f397686cd0 /gnu/packages/firmware.scm
parent0c469c041e33724c7ea42189a0db563bde394213 (diff)
downloadguix-f11578e8d99648b2dd404001c9b82f27ff350c27.tar.gz
gnu: arm-trusted-firmware: Remove input labels.
* gnu/packages/firmware.scm (make-arm-trusted-firmware)[native-inputs]: Remove
labels.
Diffstat (limited to 'gnu/packages/firmware.scm')
-rw-r--r--gnu/packages/firmware.scm21
1 files changed, 11 insertions, 10 deletions
diff --git a/gnu/packages/firmware.scm b/gnu/packages/firmware.scm
index 98f36540fc..f42c0d7a3d 100644
--- a/gnu/packages/firmware.scm
+++ b/gnu/packages/firmware.scm
@@ -577,16 +577,17 @@ Virtual Machines.  OVMF contains a sample UEFI firmware for QEMU and KVM.")
                           "DEBUG=1")
        #:tests? #f)) ; no tests
     (native-inputs
-     `(,@(if (and (not (string-prefix? "aarch64" (%current-system)))
-                  (string-prefix? "aarch64" arch))
-           `(("cross-gcc" ,(cross-gcc "aarch64-linux-gnu"))
-             ("cross-binutils" ,(cross-binutils "aarch64-linux-gnu")))
-           '())
-       ,@(if (and (not (string-prefix? "armhf" (%current-system)))
-                  (string-prefix? "armhf" arch))
-           `(("cross-gcc" ,(cross-gcc "arm-linux-gnueabihf"))
-             ("cross-binutils" ,(cross-binutils "arm-linux-gnueabihf")))
-           '())))
+     (let ((system (%current-system)))
+       (cond
+        ((and (not (string-prefix? "aarch64" system))
+              (string-prefix? "aarch64" arch))
+         (list (cross-gcc "aarch64-linux-gnu")
+               (cross-binutils "aarch64-linux-gnu")))
+        ((and (not (string-prefix? "armhf" system))
+              (string-prefix? "armhf" arch))
+         (list (cross-gcc "arm-linux-gnueabihf")
+               (cross-binutils "arm-linux-gnueabihf")))
+        (else '()))))
     (home-page "https://www.trustedfirmware.org/")
     (synopsis "Implementation of \"secure world software\"")
     (description