Support storing when builds are created

1 files changed, 9 insertions, 5 deletions

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