From 4c3ed54ab94a2b91fa15302781864593d0e5c38c Mon Sep 17 00:00:00 2001 From: Frank Duncan Date: Sat, 11 Dec 2021 09:41:27 -0600 Subject: [PATCH] Change job when-run to create-date --- src/main/base.lisp | 2 +- src/main/server.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/main/base.lisp b/src/main/base.lisp index e47c0fb..cdceda1 100644 --- a/src/main/base.lisp +++ b/src/main/base.lisp @@ -10,7 +10,7 @@ ; - :succeeded - job succeeded ; - :no-candle-file - no candle file was found ; - :in-progress - job is running -(lame-db:defdbstruct job status sha when-run (project :join project)) +(lame-db:defdbstruct job status sha create-date (project :join project)) ; in-git here refers to whether the branch exists in git. As branches get deleted, ; this will get set to nil but we keep them around for historical reference diff --git a/src/main/server.lisp b/src/main/server.lisp index 79246fb..7265a25 100644 --- a/src/main/server.lisp +++ b/src/main/server.lisp @@ -47,7 +47,7 @@ ((job (or (find sha (find-job-by-project project) :test #'string= :key #'job-sha) - (make-job :status :queued :sha sha :project project))) + (make-job :status :queued :sha sha :project project :create-date (get-universal-time)))) (branch (or (find branch-name branches :test #'string= :key #'branch-name) -- 2.25.1