From b0b7150b6ce275c3da64588726c936bfab8dc290 Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Sun, 21 Jan 2018 12:45:21 +0200 Subject: gnu: orpheus: Fix build on aarch64-linux. * gnu/packages/orpheus.scm (orpheus)[arguments]: Explicitly set the build target when building on aarch64-linux. --- gnu/packages/orpheus.scm | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) (limited to 'gnu/packages/orpheus.scm') diff --git a/gnu/packages/orpheus.scm b/gnu/packages/orpheus.scm index d672ebce75..d981be279c 100644 --- a/gnu/packages/orpheus.scm +++ b/gnu/packages/orpheus.scm @@ -1,6 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014 Eric Bavier -;;; Copyright © 2014 Efraim Flashner +;;; Copyright © 2014, 2018 Efraim Flashner ;;; ;;; This file is part of GNU Guix. ;;; @@ -27,7 +27,8 @@ #:use-module (gnu packages mp3) #:use-module (gnu packages base) #:use-module (gnu packages xiph) - #:use-module (gnu packages xml)) + #:use-module (gnu packages xml) + #:use-module (ice-9 match)) (define-public orpheus (package @@ -62,13 +63,14 @@ (setenv "CONFIG_SHELL" (which "bash")) (setenv "SHELL" (which "bash")) (setenv "LIBS" "-logg") ;doesn't declare its use of libogg - (zero? - (system* "./configure" (string-append "--prefix=" out) - ,@(if (string=? "mips64el-linux" - (%current-system)) - '("--host=mips64el-unknown-linux-gnu") - '()) - ))))) + (invoke "./configure" + (string-append "--prefix=" out) + ,@(match (%current-system) + ("mips64el-linux" + '("--host=mips64el-unknown-linux-gnu")) + ("aarch64-linux" + '("--build=aarch64-unknown-linux-gnu")) + (_ `())))))) (add-after 'configure 'configure-players (lambda* (#:key inputs #:allow-other-keys) ;; To avoid propagating the mpg321 and vorbis-tools inputs, we can -- cgit 1.4.1