02/02: gnu: wine64-staging: Copy missing man file.

[Rutger Helling]

rhelling pushed a commit to branch master
in repository guix.

commit 1adc6013fe3c7bc8e7f9b83268c0cc328b1a3fea
Author: Rutger Helling <address@hidden>
Date:   Tue Jan 2 11:34:17 2018 +0100

    gnu: wine64-staging: Copy missing man file.
    
    * gnu/packages/wine.scm (wine64-staging)[arguments]: Copy missing man file 
from
    "wine-staging" input. Clarify 'copy-wine32-files phase with comments.
    [synopsis]: Use proper "WoW64" term.
---
 gnu/packages/wine.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/wine.scm b/gnu/packages/wine.scm
index 91aa56d..857047e 100644
--- a/gnu/packages/wine.scm
+++ b/gnu/packages/wine.scm
@@ -270,6 +270,7 @@ integrated into the main branch.")
        (modify-phases %standard-phases
          (add-after 'install 'copy-wine32-files
            (lambda* (#:key outputs #:allow-other-keys)
+             ;; Copy the 32-bit binaries needed for WoW64.
              (copy-file (string-append (assoc-ref %build-inputs "wine-staging")
                                        "/bin/wine") (string-append (assoc-ref
                                        %outputs "out") "/bin/wine"))
@@ -277,6 +278,12 @@ integrated into the main branch.")
                                        "/bin/wine-preloader") (string-append
                                        (assoc-ref %outputs "out")
                                        "/bin/wine-preloader"))
+             ;; Copy the missing man file for the wine binary from 
wine-staging.
+             (system (string-append "gunzip < " (string-append (assoc-ref
+                                    %build-inputs "wine-staging")
+                                    "/share/man/man1/wine.1.gz") "> "
+                                    (string-append (assoc-ref %outputs "out")
+                                    "/share/man/man1/wine.1")))
              #t))
          (add-after 'configure 'patch-dlopen-paths
            ;; Hardcode dlopened sonames to absolute paths.
@@ -295,6 +302,6 @@ integrated into the main branch.")
        ,@(strip-keyword-arguments '(#:configure-flags #:make-flags #:phases
                                     #:system)
                                   (package-arguments wine-staging))))
-    (synopsis "Implementation of the Windows API (staging branch, WOW64
+    (synopsis "Implementation of the Windows API (staging branch, WoW64
 version)")
     (supported-systems '("x86_64-linux" "aarch64-linux"))))