From 1c34e07e8448f67dc26f3de6e21c8e55e9131e5d Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Wed, 12 Feb 2020 08:38:05 +0000
Subject: [PATCH] Query for builds for channel instance derivations

---
 guix-data-service/builds.scm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/guix-data-service/builds.scm b/guix-data-service/builds.scm
index 35a0c61..4fbc105 100644
--- a/guix-data-service/builds.scm
+++ b/guix-data-service/builds.scm
@@ -475,6 +475,23 @@ WHERE NOT EXISTS (
        derivations_by_output_details_set.derivation_id
   INNER JOIN guix_revisions
     ON guix_revisions.id = guix_revision_system_test_derivations.guix_revision_id
+"
+     (if (null? revision-commits)
+         ""
+         (string-append
+          "
+  WHERE guix_revisions.commit IN ("
+         (string-join (map quote-string revision-commits) ",")
+         ")"))
+     "
+  UNION ALL
+  SELECT derivations_by_output_details_set.derivation_output_details_set_id
+  FROM channel_instances
+  INNER JOIN derivations_by_output_details_set
+    ON channel_instances.derivation_id =
+       derivations_by_output_details_set.derivation_id
+  INNER JOIN guix_revisions
+    ON guix_revisions.id = channel_instances.guix_revision_id
 "
      (if (null? revision-commits)
          ""