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

http: Return build completion time as #:timestamp when completed. 

* src/cuirass/http.scm (build->hydra-build): Set #:timestamp to
  #:stoptime when BUILD is finished.
This commit is contained in:
Ludovic Courtès 2018-03-01 15:50:40 +01:00
parent be3650d965
commit f083282fd3
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/cuirass/http.scm
View File

@ -35,11 +35,23 @@
(define (bool->int bool)
(if bool 1 0))
(define finished?
(bool->int
(not (memv (assq-ref build #:status)
(list (build-status scheduled)
(build-status started))))))
`((#:id . ,(assq-ref build #:id))
(#:project . ,(assq-ref build #:repo-name))
(#:jobset . ,(assq-ref build #:branch))
(#:job . ,(assq-ref build #:job-name))
(#:timestamp . ,(assq-ref build #:timestamp))
;; Hydra's API uses "timestamp" as the time of the last useful event for
;; that build: evaluation or completion.
(#:timestamp . ,(if finished?
(assq-ref build #:stoptime)
(assq-ref build #:timestamp)))
(#:starttime . ,(assq-ref build #:starttime))
(#:stoptime . ,(assq-ref build #:stoptime))
(#:derivation . ,(assq-ref build #:derivation))
@ -50,10 +62,7 @@
(#:busy . ,(bool->int (eqv? (build-status started)
(assq-ref build #:status))))
(#:priority . 0)
(#:finished . ,(bool->int
(not (memv (assq-ref build #:status)
(list (build-status scheduled)
(build-status started))))))
(#:finished . ,finished?)
(#:buildproducts . #nil)
(#:releasename . #nil)
(#:buildinputs_builds . #nil)))