[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: gnu: zile: Use 'modify-phases' syntax.
From: |
Efraim Flashner |
Subject: |
02/02: gnu: zile: Use 'modify-phases' syntax. |
Date: |
Wed, 19 Oct 2016 14:11:32 +0000 (UTC) |
efraim pushed a commit to branch master
in repository guix.
commit c11933c920dd7b7cdf68e13e6b3718602129210a
Author: Efraim Flashner <address@hidden>
Date: Wed Oct 19 17:08:35 2016 +0300
gnu: zile: Use 'modify-phases' syntax.
* gnu/packages/zile.scm (zile)[arguments]: Use 'modify-phases' syntax.
---
gnu/packages/zile.scm | 20 +++++++++++---------
1 file changed, 11 insertions(+), 9 deletions(-)
diff --git a/gnu/packages/zile.scm b/gnu/packages/zile.scm
index 88aaf75..13a5440 100644
--- a/gnu/packages/zile.scm
+++ b/gnu/packages/zile.scm
@@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013 Ludovic Courtès <address@hidden>
;;; Copyright © 2014 Eric Bavier <address@hidden>
+;;; Copyright © 2016 Efraim Flashner <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -42,15 +43,16 @@
"03mcg0bxkzprlsx8y6h22w924pzx4a9zr7zm3g11j8j3x9lz75f7"))))
(build-system gnu-build-system)
(arguments
- '(#:phases (alist-cons-before
- 'configure 'patch-/bin/sh
- (lambda* (#:key inputs #:allow-other-keys)
- (let ((bash (assoc-ref inputs "bash")))
- ;; Refer to the actual shell.
- (substitute* '("lib/spawni.c" "src/funcs.c")
- (("/bin/sh")
- (string-append bash "/bin/sh")))))
- %standard-phases)))
+ '(#:phases
+ (modify-phases %standard-phases
+ (add-before 'configure 'patch-/bin/sh
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let ((bash (assoc-ref inputs "bash")))
+ ;; Refer to the actual shell.
+ (substitute* '("lib/spawni.c" "src/funcs.c")
+ (("/bin/sh")
+ (string-append bash "/bin/sh")))
+ #t))))))
(inputs
`(("boehm-gc" ,libgc)
("ncurses" ,ncurses)