02/03: gnu: wine64: Copy wine32 libraries.

[guix-commits]

cbaines pushed a commit to branch master
in repository guix.

commit 80c65f30d6fa3e928aef41310f71bf17a4871bcc
Author: Leo Prikler <leo.prikler@student.tugraz.at>
AuthorDate: Fri Nov 20 13:55:48 2020 +0100

    gnu: wine64: Copy wine32 libraries.
    
    Fixes the linkage of binaries copied over from wine32.  See also #42342.
    
    * gnu/packages/wine.scm (wine64)[#:phases]: Add copy-wine32-libraries.
    
    Signed-off-by: Christopher Baines <mail@cbaines.net>
---
 gnu/packages/wine.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gnu/packages/wine.scm b/gnu/packages/wine.scm
index 7b72fb3..492eea0 100644
--- a/gnu/packages/wine.scm
+++ b/gnu/packages/wine.scm
@@ -267,6 +267,13 @@ integrate Windows applications into your desktop.")
                (copy-file (string-append wine32 "/bin/.wine-preloader-real")
                           (string-append out "/bin/wine-preloader"))
                #t)))
+         (add-after 'install 'copy-wine32-libraries
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((wine32 (assoc-ref %build-inputs "wine"))
+                    (out (assoc-ref %outputs "out")))
+               (copy-recursively (string-append wine32 "/lib/wine32")
+                                 (string-append out "/lib/wine32"))
+               #t)))
          (add-after 'compress-documentation 'copy-wine32-manpage
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((wine32 (assoc-ref %build-inputs "wine"))