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

gnu: sendmail: Return #t from all phases. 

* gnu/packages/mail.scm (sendmail)[arguments]: Substitute INVOKE for
SYSTEM*. Return #t rather than undefined from phases.
This commit is contained in:
Tobias Geerinckx-Rice 2018-06-24 12:16:54 +02:00
parent bc884ed8ab
commit 55492129f5
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gnu/packages/mail.scm
View File

@ -1955,14 +1955,15 @@ define(`confLIBS', `-lresolv')
define(`confINSTALL', `~a/devtools/bin/install.sh') define(`confINSTALL', `~a/devtools/bin/install.sh')
define(`confDEPEND_TYPE', `CC-M') define(`confDEPEND_TYPE', `CC-M')
define(`confINST_DEP', `') define(`confINST_DEP', `')
" (getcwd)))))) " (getcwd))))
#t))
(replace 'build (replace 'build
(lambda _ (lambda _
(and (zero? (system* "sh" "Build")) (invoke "sh" "Build")
(with-directory-excursion "cf/cf" (with-directory-excursion "cf/cf"
(begin (copy-file "generic-linux.mc" "sendmail.mc")
(copy-file "generic-linux.mc" "sendmail.mc") (invoke "sh" "Build" "sendmail.cf"))
(zero? (system* "sh" "Build" "sendmail.cf"))))))) #t))
(add-before 'install 'pre-install (add-before 'install 'pre-install
(lambda _ (lambda _
(let ((out (assoc-ref %outputs "out"))) (let ((out (assoc-ref %outputs "out")))
@ -1971,7 +1972,8 @@ define(`confINST_DEP', `')
(mkdir-p (string-append out "/etc/mail")) (mkdir-p (string-append out "/etc/mail"))
(setenv "DESTDIR" out) (setenv "DESTDIR" out)
(with-directory-excursion "cf/cf" (with-directory-excursion "cf/cf"
(zero? (system* "sh" "Build" "install-cf"))))))) (invoke "sh" "Build" "install-cf"))
#t))))
;; There is no make check. There are some post installation tests, but those ;; There is no make check. There are some post installation tests, but those
;; require root privileges ;; require root privileges
#:tests? #f)) #:tests? #f))