[no subject]

[Ludovic Courtès]

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)