From 99404fff9f8be0478191dfd5a4ebbb5822527172 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Sun, 8 May 2016 11:24:19 +0300 Subject: gnu: mu: Use 'modify-phases'. * gnu/packages/mail.scm (mu): Use 'modify-phases'. --- gnu/packages/mail.scm | 25 +++++++++++++------------ 1 file changed, 13 insertions(+), 12 deletions(-) (limited to 'gnu/packages/mail.scm') diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm index b127419d7b..a2af7c7f97 100644 --- a/gnu/packages/mail.scm +++ b/gnu/packages/mail.scm @@ -13,6 +13,7 @@ ;;; Copyright © 2016 Al McElrath ;;; Copyright © 2016 Leo Famulari ;;; Copyright © 2016 Lukas Gradl +;;; Copyright © 2016 Alex Kost ;;; ;;; This file is part of GNU Guix. ;;; @@ -364,18 +365,18 @@ (define-public mu ("gmime" ,gmime) ("tzdata" ,tzdata))) ;for mu/test/test-mu-query.c (arguments - '(#:phases (alist-cons-after - 'unpack 'autoreconf - (lambda _ - (zero? (system* "autoreconf" "-vi"))) - (alist-cons-before - 'check 'check-tz-setup - (lambda* (#:key inputs #:allow-other-keys) - ;; For mu/test/test-mu-query.c - (setenv "TZDIR" - (string-append (assoc-ref inputs "tzdata") - "/share/zoneinfo"))) - %standard-phases)))) + '(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'autoreconf + (lambda _ + (zero? (system* "autoreconf" "-vi")))) + (add-before 'check 'check-tz-setup + (lambda* (#:key inputs #:allow-other-keys) + ;; For mu/test/test-mu-query.c + (setenv "TZDIR" + (string-append (assoc-ref inputs "tzdata") + "/share/zoneinfo")) + #t))))) (home-page "http://www.djcbsoftware.nl/code/mu/") (synopsis "Quickly find emails") (description -- cgit v1.2.3