summary refs log tree commit diff
path: root/gnu/packages/orpheus.scm
diff options
context:
space:
mode:
authorMarius Bakke <mbakke@fastmail.com>2018-02-20 17:36:56 +0100
committerMarius Bakke <mbakke@fastmail.com>2018-02-20 17:36:56 +0100
commit7f69459aca16756f35f08049c64a1bd77d23f33e (patch)
tree1d267fb62feab89de5d97582672540cbaa37392c /gnu/packages/orpheus.scm
parent4a82722a658220ec1e10f9f2d5d77407d38db90e (diff)
parentb1989c12501e880afab62d3ff961791906fef350 (diff)
downloadguix-7f69459aca16756f35f08049c64a1bd77d23f33e.tar.gz
Merge branch 'master' into staging
Diffstat (limited to 'gnu/packages/orpheus.scm')
-rw-r--r--gnu/packages/orpheus.scm20
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