Skip to content
Snippets Groups Projects
Commit 49ec7648 authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

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'.
parent 5d60d9c4
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment