03/03: gnu: wine64-staging: copy wine32-staging libraries.

[guix-commits]

leoprikler pushed a commit to branch master
in repository guix.

commit c22204cf7bf12056c43e5da2fd99c95866143ddc
Author: Leo Prikler <leo.prikler@student.tugraz.at>
AuthorDate: Thu Apr 22 23:35:54 2021 +0200

    gnu: wine64-staging: copy wine32-staging libraries.
    
    A similar phase has been added to wine64 since version 5.21 in order to fix
    linkage issues of binaries copied from wine32.
    See also <https://bugs.gnu.org/42342>.
    
    * gnu/packages/wine.scm (wine64-staging)[#phases]: Add 
‘copy-wine32-libraries’.
---
 gnu/packages/wine.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gnu/packages/wine.scm b/gnu/packages/wine.scm
index a89d86b..6f594bd 100644
--- a/gnu/packages/wine.scm
+++ b/gnu/packages/wine.scm
@@ -532,6 +532,13 @@ integrated into the main branch.")
                (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-staging"))
+                    (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-staging"))