diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-02-23 23:25:23 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-02-24 00:09:22 +0100 |
| commit | ed0f905cc709dc7c89aac4ba1104a863459fbd3f (patch) | |
| tree | 823ff5d8ada77297e23eb0614c5670b234842dbe | |
| parent | bb225189fd56d89ec8be926dda269295ccbfe918 (diff) | |
| download | cuirass-ed0f905cc709dc7c89aac4ba1104a863459fbd3f.tar cuirass-ed0f905cc709dc7c89aac4ba1104a863459fbd3f.tar.gz | |
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.
| -rw-r--r-- | src/cuirass/database.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index 7c1f286..40c4b92 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -1,7 +1,7 @@ ;;; database.scm -- store evaluation and build results ;;; Copyright © 2016, 2017 Mathieu Lirzin <mthl@gnu.org> ;;; 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 Tatiana Sholokhova <tanja201396@gmail.com> ;;; 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 ( SELECT Builds.derivation, Builds.rowid, Builds.timestamp, Builds.starttime, 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 INNER JOIN Evaluations ON Builds.evaluation = Evaluations.id INNER JOIN Specifications ON Evaluations.specification = Specifications.name @@ -773,7 +773,7 @@ ORDER BY ~a, rowid ASC;" order)) (match rows (() (reverse builds)) ((#(derivation id timestamp starttime stoptime log status job-name - system nix-name specification) . rest) + system nix-name eval-id specification) . rest) (loop rest (cons `((#:derivation . ,derivation) (#:id . ,id) @@ -785,6 +785,7 @@ ORDER BY ~a, rowid ASC;" order)) (#:job-name . ,job-name) (#:system . ,system) (#:nix-name . ,nix-name) + (#:eval-id . ,eval-id) (#:specification . ,specification) (#:outputs . ,(db-get-outputs derivation))) builds)))))))) |