diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-02-08 14:00:34 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-02-08 14:19:19 +0100 |
| commit | 49ec76487a2db27a7cab5382823cde72dfe387df (patch) | |
| tree | cd321e4607c40423cf79183a79eab6dfa68e3fef | |
| parent | 5d60d9c4eb0f9b899b77cb5068585ac635c784b1 (diff) | |
| download | cuirass-49ec76487a2db27a7cab5382823cde72dfe387df.tar cuirass-49ec76487a2db27a7cab5382823cde72dfe387df.tar.gz | |
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'.
| -rw-r--r-- | src/cuirass/base.scm | 8 |
1 files 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) |