From fdf47d6df3bef0cdfbb625ad338b5efb93aa5211 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 23 Jan 2018 22:22:22 +0100 Subject: 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))) -- cgit v1.2.3