branch: master
commit fdf47d6df3bef0cdfbb625ad338b5efb93aa5211
Author: Ludovic Courtès <[email protected]>
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)))
