From ab51128ee62b22971ea8b52d550e09d1c38f8ecd Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 27 Jun 2020 19:47:30 +0100 Subject: Support storing when builds are created --- guix-build-coordinator/datastore/sqlite.scm | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) (limited to 'guix-build-coordinator/datastore/sqlite.scm') diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index a7ff175..88db088 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -736,7 +736,7 @@ GROUP BY derivations.system"))) (sqlite-prepare db " -SELECT uuid, derivation_name, priority, processed +SELECT uuid, derivation_name, priority, processed, created_at FROM builds WHERE uuid = :uuid"))) @@ -746,7 +746,7 @@ WHERE uuid = :uuid"))) (let ((result (match (sqlite-step statement) - (#(uuid derivation_name priority processed) + (#(uuid derivation_name priority processed created_at) `((uuid . ,uuid) (derivation-name . ,derivation_name) (priority . ,priority) @@ -754,7 +754,11 @@ WHERE uuid = :uuid"))) ((= 0 processed) #f) ((= 1 processed) #t) (else - (error "unknown processed value"))))))))) + (error "unknown processed value")))) + (created-at . ,(if (string? created_at) + (match (strptime "%F %T" created_at) + ((parts _) parts)) + #f))))))) (sqlite-reset statement) result))))) @@ -1781,8 +1785,8 @@ INSERT INTO derivation_outputs (derivation_name, name, output) VALUES " (sqlite-prepare db " -INSERT INTO builds (uuid, derivation_name, priority) -VALUES (:uuid, :derivation_name, :priority)"))) +INSERT INTO builds (uuid, derivation_name, priority, created_at) +VALUES (:uuid, :derivation_name, :priority, datetime('now'))"))) (sqlite-bind-arguments statement -- cgit v1.2.3