guix-commits
[Top][All Lists]
Advanced

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

02/03: gnu: wine64: Fix arguments.


From: Rutger Helling
Subject: 02/03: gnu: wine64: Fix arguments.
Date: Wed, 3 Jan 2018 04:41:39 -0500 (EST)

rhelling pushed a commit to branch master
in repository guix.

commit 036f35772c5ffc2ede5bf6a47422ac2c349135f4
Author: Rutger Helling <address@hidden>
Date:   Wed Jan 3 10:37:07 2018 +0100

    gnu: wine64: Fix arguments.
    
    * gnu/packages/wine.scm (wine64)[arguments]: Use new
    'copy-wine32-binaries and 'copy-wine32-manpage phases instead of
    'copy-wine32-files phase.
---
 gnu/packages/wine.scm | 33 +++++++++++++++++----------------
 1 file changed, 17 insertions(+), 16 deletions(-)

diff --git a/gnu/packages/wine.scm b/gnu/packages/wine.scm
index e12680d..4ebc23f 100644
--- a/gnu/packages/wine.scm
+++ b/gnu/packages/wine.scm
@@ -173,23 +173,24 @@ integrate Windows applications into your desktop.")
              (string-append "libdir=" %output "/lib/wine64"))
        #:phases
        (modify-phases %standard-phases
-         (add-after 'install 'copy-wine32-files
+         (add-after 'install 'copy-wine32-binaries
            (lambda* (#:key outputs #:allow-other-keys)
-             ;; Copy the 32-bit binaries needed for WoW64.
-             (copy-file (string-append (assoc-ref %build-inputs "wine")
-                                       "/bin/wine") (string-append (assoc-ref
-                                       %outputs "out") "/bin/wine"))
-             (copy-file (string-append (assoc-ref %build-inputs "wine")
-                                       "/bin/wine-preloader") (string-append
-                                       (assoc-ref %outputs "out")
-                                       "/bin/wine-preloader"))
-             ;; Copy the missing man file for the wine binary from wine.
-             (system (string-append "gunzip < " (string-append (assoc-ref
-                                    %build-inputs "wine")
-                                    "/share/man/man1/wine.1.gz") "> "
-                                    (string-append (assoc-ref %outputs "out")
-                                    "/share/man/man1/wine.1")))
-             #t))
+             (let* ((wine32 (assoc-ref %build-inputs "wine"))
+                    (out (assoc-ref %outputs "out")))
+               ;; Copy the 32-bit binaries needed for WoW64.
+               (copy-file (string-append wine32 "/bin/wine")
+                          (string-append out "/bin/wine"))
+               (copy-file (string-append wine32 "/bin/wine-preloader")
+                          (string-append out "/bin/wine-preloader"))
+               #t)))
+         (add-after 'compress-documentation 'copy-wine32-manpage
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((wine32 (assoc-ref %build-inputs "wine"))
+                    (out (assoc-ref %outputs "out")))
+               ;; Copy the missing man file for the wine binary from wine.
+               (copy-file (string-append wine32 "/share/man/man1/wine.1.gz")
+                          (string-append out "/share/man/man1/wine.1.gz"))
+               #t)))
          (add-after 'configure 'patch-dlopen-paths
            ;; Hardcode dlopened sonames to absolute paths.
            (lambda _



reply via email to

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