From 5011d3f4a009a8f904444235874edcfbebfa8ac6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= <iyzsong@member.fsf.org>
Date: Sun, 18 Mar 2018 02:41:10 +0800
Subject: [PATCH] gnu: openssl: Fix the call of 'apply invoke'.

This fixes the build failure introduced in commit 05f6e6014.

* gnu/packages/tls.scm (openssl, openssl-next)[arguments]: Pass configure
flags to 'apply invoke' as the ARGLIST list.
---
 gnu/packages/tls.scm | 64 +++++++++++++++++++++++---------------------
 1 file changed, 33 insertions(+), 31 deletions(-)

diff --git a/gnu/packages/tls.scm b/gnu/packages/tls.scm
index 6b1005c2f8..f4a887a233 100644
--- a/gnu/packages/tls.scm
+++ b/gnu/packages/tls.scm
@@ -298,24 +298,25 @@ required structures.")
          (lambda* (#:key outputs #:allow-other-keys)
            (let ((out (assoc-ref outputs "out")))
              (apply invoke "./config"
-                    "shared"                   ;build shared libraries
-                    "--libdir=lib"
+                    (list
+                     "shared"                 ;build shared libraries
+                     "--libdir=lib"
 
-                    ;; The default for this catch-all directory is
-                    ;; PREFIX/ssl.  Change that to something more
-                    ;; conventional.
-                    (string-append "--openssldir=" out
-                                   "/share/openssl-" ,version)
+                     ;; The default for this catch-all directory is
+                     ;; PREFIX/ssl.  Change that to something more
+                     ;; conventional.
+                     (string-append "--openssldir=" out
+                                    "/share/openssl-" ,version)
 
-                    (string-append "--prefix=" out)
+                     (string-append "--prefix=" out)
 
-                    ;; XXX FIXME: Work around a code generation bug in GCC
-                    ;; 4.9.3 on ARM when compiled with -mfpu=neon.  See:
-                    ;; <https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66917>
-                    ,@(if (and (not (%current-target-system))
-                               (string-prefix? "armhf" (%current-system)))
-                          '("-mfpu=vfpv3")
-                          '())))))
+                     ;; XXX FIXME: Work around a code generation bug in GCC
+                     ;; 4.9.3 on ARM when compiled with -mfpu=neon.  See:
+                     ;; <https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66917>
+                     ,@(if (and (not (%current-target-system))
+                                (string-prefix? "armhf" (%current-system)))
+                           '("-mfpu=vfpv3")
+                           '()))))))
         (add-after
          'install 'make-libraries-writable
          (lambda* (#:key outputs #:allow-other-keys)
@@ -422,25 +423,26 @@ required structures.")
                (let* ((out (assoc-ref outputs "out"))
                       (lib (string-append out "/lib")))
                  (apply invoke "./config"
-                        "shared"                   ;build shared libraries
-                        "--libdir=lib"
+                        (list
+                         "shared"       ;build shared libraries
+                         "--libdir=lib"
 
-                        ;; The default for this catch-all directory is
-                        ;; PREFIX/ssl.  Change that to something more
-                        ;; conventional.
-                        (string-append "--openssldir=" out
-                                       "/share/openssl-" ,version)
+                         ;; The default for this catch-all directory is
+                         ;; PREFIX/ssl.  Change that to something more
+                         ;; conventional.
+                         (string-append "--openssldir=" out
+                                        "/share/openssl-" ,version)
 
-                        (string-append "--prefix=" out)
-                        (string-append "-Wl,-rpath," lib)
+                         (string-append "--prefix=" out)
+                         (string-append "-Wl,-rpath," lib)
 
-                        ;; XXX FIXME: Work around a code generation bug in GCC
-                        ;; 4.9.3 on ARM when compiled with -mfpu=neon.  See:
-                        ;; <https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66917>
-                        ,@(if (and (not (%current-target-system))
-                                   (string-prefix? "armhf" (%current-system)))
-                              '("-mfpu=vfpv3")
-                              '())))))
+                         ;; XXX FIXME: Work around a code generation bug in GCC
+                         ;; 4.9.3 on ARM when compiled with -mfpu=neon.  See:
+                         ;; <https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66917>
+                         ,@(if (and (not (%current-target-system))
+                                    (string-prefix? "armhf" (%current-system)))
+                               '("-mfpu=vfpv3")
+                               '()))))))
 
            ;; XXX: Duplicate this phase to make sure 'version' evaluates
            ;; in the current scope and not the inherited one.