[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Ludovic Courtès |
Date: |
Tue, 23 Jan 2018 17:40:34 -0500 (EST) |
branch: master
commit fdf47d6df3bef0cdfbb625ad338b5efb93aa5211
Author: Ludovic Courtès <address@hidden>
Date: Tue Jan 23 22:22:22 2018 +0100
base: Add missing argument.
* src/cuirass/base.scm (build-packages): In 'filter-map' call, add
missing argument to 'db-get-build'.
---
src/cuirass/base.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index 5e5422b..d125a3f 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -336,7 +336,7 @@ updating DB accordingly."
(assq-ref job #:derivation))
jobs))))
- (let* ((results (filter-map db-get-build build-ids))
+ (let* ((results (filter-map (cut db-get-build db <>) build-ids))
(status (map (cut assq-ref <> #:status) results))
(success (count (lambda (status)
(= status (build-status succeeded)))