nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: gnu-make: Use 'modify-phases'. 

* gnu/packages/base.scm (gnu-make)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-08-14 09:47:28 +03:00
parent 6d2b94f225
commit 6cc83b68cb
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
gnu/packages/base.scm
View File

@ -339,16 +339,16 @@ functionality beyond that which is outlined in the POSIX standard.")
(inputs `(("guile" ,guile-2.0))) (inputs `(("guile" ,guile-2.0)))
(outputs '("out" "debug")) (outputs '("out" "debug"))
(arguments (arguments
'(#:phases (alist-cons-before '(#:phases
'build 'set-default-shell (modify-phases %standard-phases
(lambda* (#:key inputs #:allow-other-keys) (add-before 'build 'set-default-shell
;; Change the default shell from /bin/sh. (lambda* (#:key inputs #:allow-other-keys)
(let ((bash (assoc-ref inputs "bash"))) ;; Change the default shell from /bin/sh.
(substitute* "job.c" (let ((bash (assoc-ref inputs "bash")))
(("default_shell =.*$") (substitute* "job.c"
(format #f "default_shell = \"~a/bin/bash\";\n" (("default_shell =.*$")
bash))))) (format #f "default_shell = \"~a/bin/bash\";\n"
%standard-phases))) bash)))))))))
(synopsis "Remake files automatically") (synopsis "Remake files automatically")
(description (description
"Make is a program that is used to control the production of "Make is a program that is used to control the production of