ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: zile: Use 'modify-phases' syntax.

Browse source 
* gnu/packages/zile.scm (zile)[arguments]: Use 'modify-phases' syntax.
This commit is contained in:
Efraim Flashner 2016-10-19 17:08:35 +03:00
parent fa216a4d01
commit c11933c920
No known key found for this signature in database
GPG key ID: F4C1D3917EACEE93
1 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gnu/packages/zile.scm
View file

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012, 2013 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -42,15 +43,16 @@ (define-public zile
"03mcg0bxkzprlsx8y6h22w924pzx4a9zr7zm3g11j8j3x9lz75f7")))) "03mcg0bxkzprlsx8y6h22w924pzx4a9zr7zm3g11j8j3x9lz75f7"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases (alist-cons-before '(#:phases
'configure 'patch-/bin/sh (modify-phases %standard-phases
(lambda* (#:key inputs #:allow-other-keys) (add-before 'configure 'patch-/bin/sh
(let ((bash (assoc-ref inputs "bash"))) (lambda* (#:key inputs #:allow-other-keys)
;; Refer to the actual shell. (let ((bash (assoc-ref inputs "bash")))
(substitute* '("lib/spawni.c" "src/funcs.c") ;; Refer to the actual shell.
(("/bin/sh") (substitute* '("lib/spawni.c" "src/funcs.c")
(string-append bash "/bin/sh"))))) (("/bin/sh")
%standard-phases))) (string-append bash "/bin/sh")))
#t))))))
(inputs (inputs
`(("boehm-gc" ,libgc) `(("boehm-gc" ,libgc)
("ncurses" ,ncurses) ("ncurses" ,ncurses)