10/14: gnu: intltool: Update phase style.

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch core-updates
in repository guix.

commit e0f71c802c8e15257cd5d279c6419557806a5d0f
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Tue Feb 20 04:47:47 2018 +0100

    gnu: intltool: Update phase style.
    
    * gnu/packages/glib.scm (intltool)[arguments]: Use MODIFY-PHASES syntax
    and end phase with #t.
---
 gnu/packages/glib.scm | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/glib.scm b/gnu/packages/glib.scm
index c0d4fe0..bc449e1 100644
--- a/gnu/packages/glib.scm
+++ b/gnu/packages/glib.scm
@@ -368,13 +368,14 @@ bindings to call into the C library.")
        ("perl-xml-parser" ,perl-xml-parser)
        ("perl" ,perl)))
     (arguments
-     `(#:phases (alist-cons-after
-                 'unpack 'patch-file-references
-                 (lambda* (#:key inputs #:allow-other-keys)
-                   (let ((file (assoc-ref inputs "file")))
-                     (substitute* "intltool-update.in"
-                       (("`file") (string-append "`" file "/bin/file")))))
-                 %standard-phases)))
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'patch-file-references
+           (lambda* (#:key inputs #:allow-other-keys)
+             (let ((file (assoc-ref inputs "file")))
+               (substitute* "intltool-update.in"
+                 (("`file") (string-append "`" file "/bin/file")))
+               #t))))))
     (home-page "https://launchpad.net/intltool/+download";)
     (synopsis "Tools to centralise translations of different file formats")
     (description