nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: wine: Use 'modify-phases' syntax. 

* gnu/packages/wine.scm (wine)[arguments]: Use 'modify-phases' syntax.
This commit is contained in:
Efraim Flashner 2016-11-29 13:18:05 +02:00
parent 658c987fdd
commit 07cda02c5b
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gnu/packages/wine.scm
View File

@ -118,18 +118,18 @@
(list "SHELL=bash") (list "SHELL=bash")
#:phases #:phases
(alist-cons-after (modify-phases %standard-phases
'configure 'patch-dlopen-paths (add-after 'configure 'patch-dlopen-paths
;; Hardcode dlopened sonames to absolute paths. ;; Hardcode dlopened sonames to absolute paths.
(lambda _ (lambda _
(let* ((library-path (search-path-as-string->list (let* ((library-path (search-path-as-string->list
(getenv "LIBRARY_PATH"))) (getenv "LIBRARY_PATH")))
(find-so (lambda (soname) (find-so (lambda (soname)
(search-path library-path soname)))) (search-path library-path soname))))
(substitute* "include/config.h" (substitute* "include/config.h"
(("(#define SONAME_.* )\"(.*)\"" _ defso soname) (("(#define SONAME_.* )\"(.*)\"" _ defso soname)
(format #f "~a\"~a\"" defso (find-so soname)))))) (format #f "~a\"~a\"" defso (find-so soname))))
%standard-phases))) #t))))))
(home-page "https://www.winehq.org/") (home-page "https://www.winehq.org/")
(synopsis "Implementation of the Windows API") (synopsis "Implementation of the Windows API")
(description (description