diff options
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index 019c758..d3533f6 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -287,6 +287,11 @@ (simple-format #t "no derivation changes url for branch ~A\n" branch)))) +(define (take* lst n) + (if (< (length lst) n) + lst + (take lst n))) + (define (start-submit-branch-builds-thread database build-coordinator guix-data-service) @@ -340,7 +345,7 @@ (with-throw-handler #t (lambda () (let* ((branches - (take + (take* (filter (match-lambda ((name . details) |