ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: aegis: Use 'modify-phases'.

Browse source 
* gnu/packages/version-control.scm (aegis)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-07-22 17:34:57 +03:00
parent 2ce516d359
commit 8ef843c711
No known key found for this signature in database
GPG key ID: F4C1D3917EACEE93
1 changed files with 29 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

60
gnu/packages/version-control.scm
View file

@ -964,39 +964,37 @@ (define-public aegis
"--sharedstatedir=/var/com/aegis") "--sharedstatedir=/var/com/aegis")
#:parallel-build? #f ; There are some nasty racy rules in the Makefile. #:parallel-build? #f ; There are some nasty racy rules in the Makefile.
#:phases #:phases
(alist-cons-before (modify-phases %standard-phases
'configure 'pre-conf (add-before 'configure 'pre-conf
(lambda _ (lambda _
(substitute* (append '("configure" (substitute* (append '("configure"
"etc/check-tar-gz.sh" "etc/check-tar-gz.sh"
"etc/patches.sh" "etc/patches.sh"
"etc/test.sh" "etc/test.sh"
"script/aexver.in" "script/aexver.in"
"script/aebisect.in" "script/aebisect.in"
"script/aeintegratq.in" "script/aeintegratq.in"
"script/tkaegis.in" "script/tkaegis.in"
"script/test_funcs.in" "script/test_funcs.in"
"web/eg_oss_templ.sh" "web/eg_oss_templ.sh"
"web/webiface.html" "web/webiface.html"
"libaegis/getpw_cache.cc") "libaegis/getpw_cache.cc")
(find-files "test" "\\.sh")) (find-files "test" "\\.sh"))
(("/bin/sh") (which "sh"))) (("/bin/sh") (which "sh")))
(setenv "SH" (which "sh"))) (setenv "SH" (which "sh"))))
(alist-replace (replace 'check
'check (lambda _
(lambda _ (let ((home (string-append (getcwd) "/my-new-home")))
(let ((home (string-append (getcwd) "/my-new-home"))) ;; Some tests need to write to $HOME.
;; Some tests need to write to $HOME. (mkdir home)
(mkdir home) (setenv "HOME" home)
(setenv "HOME" home)
;; This test assumes that flex has been symlinked to "lex". ;; This test assumes that flex has been symlinked to "lex".
(substitute* "test/00/t0011a.sh" (substitute* "test/00/t0011a.sh"
(("type lex") "type flex")) (("type lex") "type flex"))
;; The author decided to call the check rule "sure". ;; The author decided to call the check rule "sure".
(zero? (system* "make" "sure")))) (zero? (system* "make" "sure"))))))))
%standard-phases))))
(home-page "http://aegis.sourceforge.net") (home-page "http://aegis.sourceforge.net")
(synopsis "Project change supervisor") (synopsis "Project change supervisor")
(description "Aegis is a project change supervisor, and performs some of (description "Aegis is a project change supervisor, and performs some of