guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

04/09: gnu: git-flow: Use 'modify-phases'.


From: Efraim Flashner
Subject: 04/09: gnu: git-flow: Use 'modify-phases'.
Date: Fri, 22 Jul 2016 15:25:07 +0000 (UTC)

efraim pushed a commit to branch master
in repository guix.

commit aac42d78852daa7930f79f1c1061f1558f93abd3
Author: Efraim Flashner <address@hidden>
Date:   Fri Jul 22 15:45:15 2016 +0300

    gnu: git-flow: Use 'modify-phases'.
    
    * gnu/packages/version-control.scm (git-flow)[arguments]: Use
    'modify-phases'.
---
 gnu/packages/version-control.scm |   26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index 6d0d4f9..0ad9f1c 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -490,19 +490,19 @@ will work.")
      '(#:tests? #f                    ; no tests
        #:make-flags (list (string-append "prefix="
                                          (assoc-ref %outputs "out")))
-       #:phases (alist-cons-after
-                 'unpack 'reset-shFlags-link
-                 (lambda* (#:key inputs #:allow-other-keys)
-                   ;; The link points to a file in the shFlags submodule.
-                   ;; Redirect it to point to our system shFlags.
-                   (let ((shflags (assoc-ref inputs "shflags")))
-                     (begin
-                       (delete-file "gitflow-shFlags")
-                       (symlink (string-append shflags "/src/shflags")
-                                "gitflow-shFlags"))))
-                 (alist-delete
-                  'configure
-                  (alist-delete 'build %standard-phases)))))
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'reset-shFlags-link
+           (lambda* (#:key inputs #:allow-other-keys)
+             ;; The link points to a file in the shFlags submodule.
+             ;; Redirect it to point to our system shFlags.
+             (let ((shflags (assoc-ref inputs "shflags")))
+               (begin
+                 (delete-file "gitflow-shFlags")
+                 (symlink (string-append shflags "/src/shflags")
+                          "gitflow-shFlags")))))
+         (delete 'configure)
+         (delete 'build))))
     (home-page "http://nvie.com/posts/a-successful-git-branching-model/";)
     (synopsis "Git extensions for Vincent Driessen's branching model")
     (description



reply via email to

[Prev in Thread] Current Thread [Next in Thread]