[no subject]

[Mathieu Othacehe]

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