[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Ludovic Courtès |
Date: |
Sun, 23 Feb 2020 18:09:34 -0500 (EST) |
branch: master
commit ed0f905cc709dc7c89aac4ba1104a863459fbd3f
Author: Ludovic Courtès <address@hidden>
AuthorDate: Sun Feb 23 23:25:23 2020 +0100
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.
---
src/cuirass/database.scm | 7 ++++---
1 file 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 <address@hidden>
;;; Copyright © 2017 Mathieu Othacehe <address@hidden>
-;;; Copyright © 2018 Ludovic Courtès <address@hidden>
+;;; Copyright © 2018, 2020 Ludovic Courtès <address@hidden>
;;; Copyright © 2018 Clément Lassieur <address@hidden>
;;; Copyright © 2018 Tatiana Sholokhova <address@hidden>
;;; Copyright © 2019 Ricardo Wurmus <address@hidden>
@@ -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))))))))