summary refs log tree commit diff
path: root/gnu/packages/orpheus.scm
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2018-01-21 12:45:21 +0200
committerEfraim Flashner <efraim@flashner.co.il>2018-01-21 12:53:33 +0200
commitb0b7150b6ce275c3da64588726c936bfab8dc290 (patch)
tree089f881d404cd698985940de62c65dda62049a9f /gnu/packages/orpheus.scm
parente81e154c40b262b1c7a0928cbc712e3631f6342a (diff)
downloadguix-b0b7150b6ce275c3da64588726c936bfab8dc290.tar.gz
gnu: orpheus: Fix build on aarch64-linux.
* gnu/packages/orpheus.scm (orpheus)[arguments]: Explicitly set the
build target when building on aarch64-linux.
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