From 44bb44556cc776fc4e26c1b8b2ccf69c9e80a5fc Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 27 Sep 2020 15:20:57 +0100
Subject: Skip duplicate channel instance derivation requests

---
 ...d-coordinator-queue-builds-from-guix-data-service.in | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in b/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in
index a8f1ab4..0bf3a1d 100644
--- a/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in
+++ b/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in
@@ -155,14 +155,15 @@
   (for-each
    (match-lambda
      ((system . target)
-      (for-each (lambda (derivation)
-                  (submit-build coordinator
-                                guix-data-service
-                                derivation
-                                #:priority 1000))
-                (channel-instance-derivations-for-commit guix-data-service
-                                                         commit
-                                                         system))
+      (when (string=? target "none")
+        (for-each (lambda (derivation)
+                    (submit-build coordinator
+                                  guix-data-service
+                                  derivation
+                                  #:priority 1000))
+                  (channel-instance-derivations-for-commit guix-data-service
+                                                           commit
+                                                           system)))
 
       (let ((unprocessed-package-derivations
              (filter (lambda (derivation)
-- 
cgit v1.2.3