branch master updated: Fetch narinfo files first, because that's faster

[Christopher Baines]

This is an automated email from the git hooks/post-receive script.

cbaines pushed a commit to branch master
in repository data-service.

The following commit(s) were added to refs/heads/master by this push:
     new edcf1c1  Fetch narinfo files first, because that's faster
edcf1c1 is described below

commit edcf1c1e8f566901d3da0e40e1e8c40ca1e00ee4
Author: Christopher Baines <address@hidden>
AuthorDate: Sat Apr 25 12:46:39 2020 +0100

    Fetch narinfo files first, because that's faster
    
    At least than fetching builds.
---
 guix-data-service/builds.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/guix-data-service/builds.scm b/guix-data-service/builds.scm
index cce36c9..bba5bb3 100644
--- a/guix-data-service/builds.scm
+++ b/guix-data-service/builds.scm
@@ -172,6 +172,8 @@ WHERE derivation_output_details.path = $1"
 
   (simple-format #t "\nFetching pending builds\n")
   (process-pending-builds conn id url)
+  (simple-format #t "\nFetching narinfo files\n")
+  (fetch-narinfo-files conn id url revision-commits)
   (simple-format #t "\nFetching unseen derivations\n")
   (process-derivation-outputs
    conn id url
@@ -184,9 +186,7 @@ WHERE derivation_output_details.path = $1"
              outputs)
        (select-derivation-outputs-with-no-known-build conn
                                                       id
-                                                      revision-commits)))
-  (simple-format #t "\nFetching narinfo files\n")
-  (fetch-narinfo-files conn id url revision-commits))
+                                                      revision-commits))))
 
 (define (insert-build-statuses-from-data conn build-server-id build-id data)
   (define stop-statuses