mirror of
git://git.savannah.gnu.org/guix/guix-cuirass.git
synced 2023-12-14 06:03:04 +01:00
database: 'db-get-builds' returns each build's evaluation ID.
* src/cuirass/database.scm (db-get-builds): Fetch 'Builds.evaluation' and return it as #:eval-id.
This commit is contained in:
parent
bb225189fd
commit
ed0f905cc7
1 changed files with 4 additions and 3 deletions
|
@ -1,7 +1,7 @@
|
||||||
;;; database.scm -- store evaluation and build results
|
;;; database.scm -- store evaluation and build results
|
||||||
;;; Copyright © 2016, 2017 Mathieu Lirzin <mthl@gnu.org>
|
;;; Copyright © 2016, 2017 Mathieu Lirzin <mthl@gnu.org>
|
||||||
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
|
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
|
||||||
;;; Copyright © 2018 Ludovic Courtès <ludo@gnu.org>
|
;;; Copyright © 2018, 2020 Ludovic Courtès <ludo@gnu.org>
|
||||||
;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
|
;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
|
||||||
;;; Copyright © 2018 Tatiana Sholokhova <tanja201396@gmail.com>
|
;;; Copyright © 2018 Tatiana Sholokhova <tanja201396@gmail.com>
|
||||||
;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net>
|
;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net>
|
||||||
|
@ -721,7 +721,7 @@ FILTERS is an assoc list whose possible keys are 'derivation | 'id | 'jobset |
|
||||||
(stmt-text (format #f "SELECT * FROM (
|
(stmt-text (format #f "SELECT * FROM (
|
||||||
SELECT Builds.derivation, Builds.rowid, Builds.timestamp, Builds.starttime,
|
SELECT Builds.derivation, Builds.rowid, Builds.timestamp, Builds.starttime,
|
||||||
Builds.stoptime, Builds.log, Builds.status, Builds.job_name, Builds.system,
|
Builds.stoptime, Builds.log, Builds.status, Builds.job_name, Builds.system,
|
||||||
Builds.nix_name, Specifications.name
|
Builds.nix_name, Builds.evaluation, Specifications.name
|
||||||
FROM Builds
|
FROM Builds
|
||||||
INNER JOIN Evaluations ON Builds.evaluation = Evaluations.id
|
INNER JOIN Evaluations ON Builds.evaluation = Evaluations.id
|
||||||
INNER JOIN Specifications ON Evaluations.specification = Specifications.name
|
INNER JOIN Specifications ON Evaluations.specification = Specifications.name
|
||||||
|
@ -773,7 +773,7 @@ ORDER BY ~a, rowid ASC;" order))
|
||||||
(match rows
|
(match rows
|
||||||
(() (reverse builds))
|
(() (reverse builds))
|
||||||
((#(derivation id timestamp starttime stoptime log status job-name
|
((#(derivation id timestamp starttime stoptime log status job-name
|
||||||
system nix-name specification) . rest)
|
system nix-name eval-id specification) . rest)
|
||||||
(loop rest
|
(loop rest
|
||||||
(cons `((#:derivation . ,derivation)
|
(cons `((#:derivation . ,derivation)
|
||||||
(#:id . ,id)
|
(#:id . ,id)
|
||||||
|
@ -785,6 +785,7 @@ ORDER BY ~a, rowid ASC;" order))
|
||||||
(#:job-name . ,job-name)
|
(#:job-name . ,job-name)
|
||||||
(#:system . ,system)
|
(#:system . ,system)
|
||||||
(#:nix-name . ,nix-name)
|
(#:nix-name . ,nix-name)
|
||||||
|
(#:eval-id . ,eval-id)
|
||||||
(#:specification . ,specification)
|
(#:specification . ,specification)
|
||||||
(#:outputs . ,(db-get-outputs derivation)))
|
(#:outputs . ,(db-get-outputs derivation)))
|
||||||
builds))))))))
|
builds))))))))
|
||||||
|
|
Loading…
Reference in a new issue