From fd496f430afa91bb1f488dea702ff8f2446b965c Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 20 Apr 2023 14:19:13 +0100 Subject: Remove redundant append --- guix-build-coordinator/agent.scm | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'guix-build-coordinator/agent.scm') diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 1ac69e6..f5ae50a 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -544,12 +544,11 @@ (or (< job-count current-threads) (= job-count 0))) (let* ((queued-build-ids - (append - (map (lambda (job-args) - (assoc-ref (car job-args) "uuid")) - (append - (list-jobs) - (list-post-build-jobs))))) + (map (lambda (job-args) + (assoc-ref (car job-args) "uuid")) + (append + (list-jobs) + (list-post-build-jobs)))) (fetched-builds (with-exception-handler (lambda (exn) -- cgit v1.2.3