diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-02-16 12:44:17 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-02-16 12:44:17 +0000 |
| commit | 9eed87b6e6a327275095c7e57542b4c84e4b11a5 (patch) | |
| tree | 81d4114cddc1e1b963ad097b0867f8520effa728 /guix-build-coordinator/datastore.scm | |
| parent | eabd4e66853e977d10dadcc90f80b3fded26ec6e (diff) | |
| download | build-coordinator-9eed87b6e6a327275095c7e57542b4c84e4b11a5.tar build-coordinator-9eed87b6e6a327275095c7e57542b4c84e4b11a5.tar.gz | |
Support canceling builds by created_at
Diffstat (limited to 'guix-build-coordinator/datastore.scm')
| -rw-r--r-- | guix-build-coordinator/datastore.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guix-build-coordinator/datastore.scm b/guix-build-coordinator/datastore.scm index ac0d01b..ae65b7d 100644 --- a/guix-build-coordinator/datastore.scm +++ b/guix-build-coordinator/datastore.scm @@ -6,7 +6,8 @@ #:use-module (guix-build-coordinator datastore postgresql) #:duplicates (merge-generics) #:export (database-uri->datastore - datastore-find-build-output)) + datastore-find-build-output + datastore-validate-datetime-string)) (re-export datastore-optimize) (re-export datastore-spawn-fibers) @@ -123,3 +124,6 @@ (assq-ref output 'output) #f)) outputs))) + +(define (datastore-validate-datetime-string s) + (strftime "%F %T" (car (strptime "%F %T" s)))) |