From 9d9951d6a6d5b1cce55f52c1600032360fe3a25d Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Tue, 12 Jan 2016 14:47:10 +0200 Subject: gnu: global: Use modify-phases syntax. * gnu/packages/code.scm (global)[arguments]: Use modify-phases syntax. --- gnu/packages/code.scm | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) (limited to 'gnu/packages') diff --git a/gnu/packages/code.scm b/gnu/packages/code.scm index e0d4997b31..754a435347 100644 --- a/gnu/packages/code.scm +++ b/gnu/packages/code.scm @@ -111,18 +111,17 @@ (define-public global ; a global variable (string-append "--with-sqlite3=" (assoc-ref %build-inputs "sqlite"))) - #:phases (alist-cons-after - 'install 'post-install - (lambda* (#:key outputs #:allow-other-keys) - ;; Install the Emacs Lisp file in the right place. - (let* ((out (assoc-ref outputs "out")) - (data (string-append out "/share/gtags")) - (lisp (string-append out "/share/emacs/site-lisp"))) - (install-file (string-append data "/gtags.el") - lisp) - (delete-file (string-append data "/gtags.el")) - #t)) - %standard-phases))) + #:phases + (modify-phases %standard-phases + (add-after 'install 'post-install + (lambda* (#:key outputs #:allow-other-keys) + ;; Install the Emacs Lisp file in the right place. + (let* ((out (assoc-ref outputs "out")) + (data (string-append out "/share/gtags")) + (lisp (string-append out "/share/emacs/site-lisp"))) + (install-file (string-append data "/gtags.el") lisp) + (delete-file (string-append data "/gtags.el")) + #t)))))) (home-page "http://www.gnu.org/software/global/") (synopsis "Cross-environment source code tag system") (description -- cgit v1.2.3