[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Ludovic Courtès |
Date: |
Thu, 8 Feb 2018 08:25:55 -0500 (EST) |
branch: master
commit 49ec76487a2db27a7cab5382823cde72dfe387df
Author: Ludovic Courtès <address@hidden>
Date: Thu Feb 8 14:00:34 2018 +0100
base: Fix computation of build success/failure.
* src/cuirass/base.scm (build-packages)[register]: Make 'db-add-build' a
tail call.
Fix computation of 'outs'.
---
src/cuirass/base.scm | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index 70c0168..9a2024b 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -493,8 +493,7 @@ updating DB accordingly."
(#:timestamp . ,cur-time)
(#:starttime . 0)
(#:stoptime . 0))))
- (db-add-build db build)
- build)))
+ (db-add-build db build))))
(define build-ids
(map register jobs))
@@ -507,7 +506,10 @@ updating DB accordingly."
(= status (build-status succeeded)))
status))
(outputs (map (cut assq-ref <> #:outputs) results))
- (outs (filter-map (cut assoc-ref <> "out") outputs))
+ (outs (append-map (match-lambda
+ (((_ (#:path . (? string? outputs))) ...)
+ outputs))
+ outputs))
(fail (- (length jobs) success)))
(log-message "outputs:\n~a" (string-join outs "\n"))
(log-message "success: ~a, fail: ~a" success fail)
- master updated (e656f42 -> 5425639), Ludovic Courtès, 2018/02/08
- [no subject], Ludovic Courtès, 2018/02/08
- [no subject], Ludovic Courtès, 2018/02/08
- [no subject],
Ludovic Courtès <=
- [no subject], Ludovic Courtès, 2018/02/08
- [no subject], Ludovic Courtès, 2018/02/08
- [no subject], Ludovic Courtès, 2018/02/08
- [no subject], Ludovic Courtès, 2018/02/08
- [no subject], Ludovic Courtès, 2018/02/08