[no subject]

[Ludovic Courtès]

branch: master
commit 8b26874cac35dabb0d4e203e0de8e9c3485738a1
Author: Ludovic Courtès <address@hidden>
Date:   Fri Jan 26 18:28:32 2018 +0100

    http: Provide the correct values for 'finished' and 'busy'.
    
    This should placate 'guix-hydra-queued-builds', for instance, which
    checks these values to choose between "Running" and "Scheduled".
    
    * src/cuirass/http.scm (build->hydra-build): Provide the correct value
    for #:finished and #:busy.
---
 src/cuirass/http.scm | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index 73f2b8b..1939c34 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -32,6 +32,9 @@
 
 (define (build->hydra-build build)
   "Convert BUILD to an assoc list matching hydra API format."
+  (define (bool->int bool)
+    (if bool 1 0))
+
   `((#:id . ,(assq-ref build #:id))
     (#:project . ,(assq-ref build #:repo-name))
     (#:jobset . ,(assq-ref build #:branch))
@@ -44,11 +47,13 @@
     (#:system . ,(assq-ref build #:system))
     (#:nixname . ,(assq-ref build #:nix-name))
     (#:buildstatus . ,(assq-ref build #:status))
-
-    ;; TODO: Fill the fields above with correct values.
-    (#:busy . 0)
+    (#:busy . ,(bool->int (eqv? (build-status started)
+                                (assq-ref build #:status))))
     (#:priority . 0)
-    (#:finished . 1)
+    (#:finished . ,(bool->int
+                    (not (memv (assq-ref build #:status)
+                               (list (build-status scheduled)
+                                     (build-status started))))))
     (#:buildproducts . #nil)
     (#:releasename . #nil)
     (#:buildinputs_builds . #nil)))