From edcf1c1e8f566901d3da0e40e1e8c40ca1e00ee4 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 25 Apr 2020 12:46:39 +0100 Subject: [PATCH] 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