guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/01: gnu: orpheus: Fix build on aarch64-linux.


From: Efraim Flashner
Subject: 01/01: gnu: orpheus: Fix build on aarch64-linux.
Date: Sun, 21 Jan 2018 05:54:04 -0500 (EST)

efraim pushed a commit to branch master
in repository guix.

commit b0b7150b6ce275c3da64588726c936bfab8dc290
Author: Efraim Flashner <address@hidden>
Date:   Sun Jan 21 12:45:21 2018 +0200

    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(-)

diff --git a/gnu/packages/orpheus.scm b/gnu/packages/orpheus.scm
index d672ebc..d981be2 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 <address@hidden>
-;;; Copyright © 2014 Efraim Flashner <address@hidden>
+;;; Copyright © 2014, 2018 Efraim Flashner <address@hidden>
 ;;;
 ;;; 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]