[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Mathieu Othacehe |
Date: |
Fri, 26 Mar 2021 09:20:17 -0400 (EDT) |
branch: master
commit a6e7d856105c570b1e8aa18f43b095336eff9f5f
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Fri Mar 26 13:55:37 2021 +0100
base: Remove unused argument.
* src/cuirass/base.scm (set-build-successful!): Remove log argument.
---
src/cuirass/base.scm | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index 0a9168d..37b58e1 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -387,7 +387,7 @@ Essentially this procedure inverts the inversion-of-control
that
;; Our shuffling algorithm is simple: we sort by .drv file name. :-)
(sort drv string<?))
-(define* (set-build-successful! drv #:optional log)
+(define* (set-build-successful! drv)
"Update the build status of DRV as successful and register any eventual
build products."
(let* ((build (db-get-build drv))
@@ -397,8 +397,7 @@ build products."
(when (and spec build)
(create-build-outputs build
(specification-build-outputs spec))))
- (db-update-build-status! drv (build-status succeeded)
- #:log-file log))
+ (db-update-build-status! drv (build-status succeeded)))
(define (update-build-statuses! store lst)
"Update the build status of the derivations listed in LST, which have just