guix
/
guix-cuirass
mirror of git://git.savannah.gnu.org/guix/guix-cuirass.git
2
0
Fork 0
Code Issues Releases Wiki Activity

http: Correctly set #:timestamp for non-finished builds. 

Fixes a regression introduced in
f083282fd3, whereby we'd return 0 as the
timestamp for everything in /api/queue.

* src/cuirass/http.scm (build->hydra-build): Make 'finished?' a
Boolean.  Move 'bool->int' call in #:finished definition.
This commit is contained in:
Ludovic Courtès 2018-03-18 01:01:12 +01:00
parent 2096ebe63f
commit 787969c9af
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/cuirass/http.scm
View File

@ -36,10 +36,9 @@
(if bool 1 0))
(define finished?
(bool->int
(not (memv (assq-ref build #:status)
(list (build-status scheduled)
(build-status started))))))
(not (memv (assq-ref build #:status)
(list (build-status scheduled)
(build-status started)))))
`((#:id . ,(assq-ref build #:id))
(#:project . ,(assq-ref build #:repo-name))
@ -62,7 +61,7 @@
(#:busy . ,(bool->int (eqv? (build-status started)
(assq-ref build #:status))))
(#:priority . 0)
(#:finished . ,finished?)
(#:finished . ,(bool->int finished?))
(#:buildproducts . #nil)
(#:releasename . #nil)
(#:buildinputs_builds . #nil)))