[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/10: build-system/dub: Don't explicitly return #t from phases.
From: |
guix-commits |
Subject: |
01/10: build-system/dub: Don't explicitly return #t from phases. |
Date: |
Sat, 25 Jun 2022 17:37:04 -0400 (EDT) |
nckx pushed a commit to branch master
in repository guix.
commit c539a13050e4e5469ce9b3d09efb5cabfa5d832b
Author: ( <paren@disroot.org>
AuthorDate: Fri Jun 24 18:56:28 2022 +0100
build-system/dub: Don't explicitly return #t from phases.
* guix/build/dub-build-system.scm (configure, build, check, install):
Remove trailing #t.
Signed-off-by: Tobias Geerinckx-Rice <me@tobias.gr>
---
guix/build/dub-build-system.scm | 12 ++++--------
1 file changed, 4 insertions(+), 8 deletions(-)
diff --git a/guix/build/dub-build-system.scm b/guix/build/dub-build-system.scm
index 3ab50733de..a916afb0c4 100644
--- a/guix/build/dub-build-system.scm
+++ b/guix/build/dub-build-system.scm
@@ -67,8 +67,7 @@
(symlink (string-append path "/lib/dub/" d-basename)
(string-append vendor-dir "/" d-basename))))))))
inputs)
- (invoke "dub" "add-path" vendor-dir)
- #t))
+ (invoke "dub" "add-path" vendor-dir)))
(define (grep string file-name)
"Find the first occurrence of STRING in the file named FILE-NAME.
@@ -95,16 +94,14 @@
(apply invoke `("dub" "build" ,@dub-build-flags))
(substitute* ".dub/dub.json"
(("\"lastUpgrade\": \"[^\"]*\"")
- "\"lastUpgrade\": \"1970-01-01T00:00:00.0000000\"")))
- #t)
+ "\"lastUpgrade\": \"1970-01-01T00:00:00.0000000\""))))
(define* (check #:key tests? #:allow-other-keys)
(when tests?
(invoke "dub" "test")
(substitute* ".dub/dub.json"
(("\"lastUpgrade\": \"[^\"]*\"")
- "\"lastUpgrade\": \"1970-01-01T00:00:00.0000000\"")))
- #t)
+ "\"lastUpgrade\": \"1970-01-01T00:00:00.0000000\""))))
(define* (install #:key inputs outputs #:allow-other-keys)
"Install a given DUB package."
@@ -115,8 +112,7 @@
;; TODO remove "-test-application"
(copy-recursively "bin" outbin)
(mkdir-p outlib)
- (copy-recursively "." (string-append outlib))
- #t))
+ (copy-recursively "." (string-append outlib))))
(define %standard-phases
(modify-phases gnu:%standard-phases
- branch master updated (d039f9dc15 -> 14fdbeb3fb), guix-commits, 2022/06/25
- 05/10: gnu: p11-kit@0.24: Update to 0.24.1., guix-commits, 2022/06/25
- 08/10: gnu: pgloader: Update to 3.6.4., guix-commits, 2022/06/25
- 07/10: gnu: filezilla: Update to 3.60.1., guix-commits, 2022/06/25
- 01/10: build-system/dub: Don't explicitly return #t from phases.,
guix-commits <=
- 06/10: gnu: libfilezilla: Update to 0.37.2., guix-commits, 2022/06/25
- 09/10: gnu: emacs-tramp: Update to 2.5.2.5., guix-commits, 2022/06/25
- 10/10: gnu: diffoscope: Update to 217., guix-commits, 2022/06/25
- 04/10: build-system/dub: Don't expect ‘.dub/dub.json’., guix-commits, 2022/06/25
- 02/10: build-system/dub: Use the gold linker., guix-commits, 2022/06/25
- 03/10: build-system/dub: Fix configure docstring indentation., guix-commits, 2022/06/25