cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fetch narinfo files first, because that's faster

Browse source 
At least than fetching builds.
This commit is contained in:
Christopher Baines 2020-04-25 12:46:39 +01:00
parent 111576e3f9
commit edcf1c1e8f
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
guix-data-service/builds.scm
View file

@ -172,6 +172,8 @@ WHERE derivation_output_details.path = $1"
(simple-format #t "\nFetching pending builds\n") (simple-format #t "\nFetching pending builds\n")
(process-pending-builds conn id url) (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") (simple-format #t "\nFetching unseen derivations\n")
(process-derivation-outputs (process-derivation-outputs
conn id url conn id url
@ -184,9 +186,7 @@ WHERE derivation_output_details.path = $1"
outputs) outputs)
(select-derivation-outputs-with-no-known-build conn (select-derivation-outputs-with-no-known-build conn
id id
revision-commits))) revision-commits))))
(simple-format #t "\nFetching narinfo files\n")
(fetch-narinfo-files conn id url revision-commits))
(define (insert-build-statuses-from-data conn build-server-id build-id data) (define (insert-build-statuses-from-data conn build-server-id build-id data)
(define stop-statuses (define stop-statuses