Switch to a more rigorous method for finding potential source refs

1 files changed, 4 insertions, 9 deletions

diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm
index f7e911a..a0ae0c1 100644
--- a/guix-build-coordinator/hooks.scm
+++ b/guix-build-coordinator/hooks.scm
@@ -104,8 +104,6 @@
     (define (process-referenced-derivation-source-files drv-name)
       (let* ((build-outputs
               (datastore-list-build-outputs datastore build-id))
-             (derivation-inputs
-              (datastore-find-derivation-inputs datastore drv-name))
              (potential-referenced-source-files
               ;; Just subtract the inputs from the output references
               (lset-difference
@@ -118,13 +116,10 @@
                                   '()))
                             build-outputs)
                 string=?)
-               (map (lambda (input)
-                      (basename (assq-ref input 'output)))
-                    derivation-inputs)
-               ;; Ignore references to outputs of this build
-               (map (lambda (output)
-                      (basename (assq-ref output 'output)))
-                    build-outputs))))
+               (map basename
+                    (datastore-find-recursive-derivation-input-outputs
+                     datastore
+                     drv-name)))))
 
         (unless (null? potential-referenced-source-files)
           (display