diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2016-11-29 13:18:05 +0200 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2016-11-29 16:12:47 +0200 |
| commit | 07cda02c5b6bc44007c1d3f44b7f003b35ac07ec (patch) | |
| tree | c9b61d3730b9c253635d39820c0cee5b142c3339 | |
| parent | 658c987fdd30c9cc071fd819c7e6d27bdb02600e (diff) | |
| download | guix-07cda02c5b6bc44007c1d3f44b7f003b35ac07ec.tar.gz | |
gnu: wine: Use 'modify-phases' syntax.
* gnu/packages/wine.scm (wine)[arguments]: Use 'modify-phases' syntax.
| -rw-r--r-- | gnu/packages/wine.scm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/gnu/packages/wine.scm b/gnu/packages/wine.scm index d2d3fdd80b..367f27af5e 100644 --- a/gnu/packages/wine.scm +++ b/gnu/packages/wine.scm @@ -118,18 +118,18 @@ (list "SHELL=bash") #:phases - (alist-cons-after - 'configure 'patch-dlopen-paths - ;; Hardcode dlopened sonames to absolute paths. - (lambda _ - (let* ((library-path (search-path-as-string->list - (getenv "LIBRARY_PATH"))) - (find-so (lambda (soname) - (search-path library-path soname)))) - (substitute* "include/config.h" - (("(#define SONAME_.* )\"(.*)\"" _ defso soname) - (format #f "~a\"~a\"" defso (find-so soname)))))) - %standard-phases))) + (modify-phases %standard-phases + (add-after 'configure 'patch-dlopen-paths + ;; Hardcode dlopened sonames to absolute paths. + (lambda _ + (let* ((library-path (search-path-as-string->list + (getenv "LIBRARY_PATH"))) + (find-so (lambda (soname) + (search-path library-path soname)))) + (substitute* "include/config.h" + (("(#define SONAME_.* )\"(.*)\"" _ defso soname) + (format #f "~a\"~a\"" defso (find-so soname)))) + #t)))))) (home-page "https://www.winehq.org/") (synopsis "Implementation of the Windows API") (description |