diff options
Diffstat (limited to 'scripts/guix-build-coordinator.in')
-rw-r--r-- | scripts/guix-build-coordinator.in | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 7bb0593..da63025 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -26,6 +26,7 @@ (setvbuf (current-error-port) 'line) (use-modules (srfi srfi-1) + (srfi srfi-19) (srfi srfi-37) (ice-9 match) (web uri) @@ -116,7 +117,12 @@ ((key value) (cons key value))) (or (assq-ref result 'tags) '())) - (alist-delete 'tags result)))))) + (alist-delete 'tags result)))) + (option '("defer-until") #t #f + (lambda (opt name arg result) + (alist-cons 'defer-until + (string->date arg "~Y-~m-~d ~H:~M:~S") + result))))) (define %build-option-defaults `((priority . 0) @@ -508,7 +514,8 @@ tags: (assq-ref opts 'ignore-if-build-for-outputs-exists) (assq-ref opts 'ensure-all-related-derivation-outputs-have-builds) - (assq-ref opts 'tags)))) + (assq-ref opts 'tags) + #:defer-until (assq-ref opts 'defer-until)))) (let ((no-build-submitted-response (assoc-ref response "no-build-submitted"))) (if no-build-submitted-response |