diff options
| -rw-r--r-- | gnu/packages/orpheus.scm | 20 |
1 files changed, 11 insertions, 9 deletions
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 <bavier@member.fsf.org> -;;; Copyright © 2014 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2014, 2018 Efraim Flashner <efraim@flashner.co.il> ;;; ;;; 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 |