guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

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
Show stats 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")
(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