me/guix
Archived
1
0
Fork 0
Code Activity

gnu: nullmailer: Remove obsolete trailing #t.

Browse source 
* gnu/packages/mail.scm (nullmailer)[arguments]:
Don't explicitly return #t from phases.
This commit is contained in:
Tobias Geerinckx-Rice 2023-07-02 02:00:03 +02:00
parent 16d77b31c5
commit 0c9f663cd2
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 4 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/packages/mail.scm
View file

@ -513,8 +513,7 @@ messages) using IDLE. Implemented in Go.")
(substitute* (list "functions.in" (substitute* (list "functions.in"
"tests/send") "tests/send")
;; Fix some shebangs later generated on the fly. ;; Fix some shebangs later generated on the fly.
(("/bin/sh") (which "bash")))) (("/bin/sh") (which "bash"))))))
#t))
(add-before 'check 'pass-PATH-to-tests (add-before 'check 'pass-PATH-to-tests
;; ‘runtest’ launches each test through ‘env -’, clearing $PATH. The ;; ‘runtest’ launches each test through ‘env -’, clearing $PATH. The
;; tests then source ‘functions’, which first demands a working $PATH ;; tests then source ‘functions’, which first demands a working $PATH
@ -526,8 +525,7 @@ messages) using IDLE. Implemented in Go.")
(("env - bash") (("env - bash")
(string-append "env - PATH=\"" (getenv "PATH") "\" bash"))) (string-append "env - PATH=\"" (getenv "PATH") "\" bash")))
(substitute* "functions.in" (substitute* "functions.in"
(("export PATH=.*") ""))) (("export PATH=.*") "")))))
#t))
(add-before 'check 'delete-failing-tests (add-before 'check 'delete-failing-tests
(lambda _ (lambda _
(with-directory-excursion "test/tests" (with-directory-excursion "test/tests"
@ -536,14 +534,12 @@ messages) using IDLE. Implemented in Go.")
;; XXX ‘nullmailer-inject: nullmailer-queue failed: 15’ ;; XXX ‘nullmailer-inject: nullmailer-queue failed: 15’
"inject/queue" "inject/queue"
;; XXX These require the not-yet-packaged tcpserver. ;; XXX These require the not-yet-packaged tcpserver.
"protocols" "smtp-auth"))) "protocols" "smtp-auth")))))
#t))
(add-before 'install 'skip-install-data-local (add-before 'install 'skip-install-data-local
;; Don't attempt to install run-time files outside of the store. ;; Don't attempt to install run-time files outside of the store.
(lambda _ (lambda _
(substitute* "Makefile" (substitute* "Makefile"
((" install-data-local") "")) ((" install-data-local") "")))))))
#t)))))
(native-inputs (native-inputs
;; For tests. ;; For tests.
(list daemontools)) ; for svc (list daemontools)) ; for svc