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

Improve variable names in fetch-narinfo-files

Browse source
This commit is contained in:
Christopher Baines 2019-12-05 16:12:10 +01:00
parent eb2ba599d9
commit 29e897ce9c
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

@ -210,18 +210,18 @@ LIMIT 15000"))
(exec-query conn query)) (exec-query conn query))
(define (fetch-narinfo-files conn id url revision-commits) (define (fetch-narinfo-files conn build-server-id build-server-url revision-commits)
(define outputs (define outputs
(select-outputs-for-successful-builds-without-known-nar-entries (select-outputs-for-successful-builds-without-known-nar-entries
conn conn
id build-server-id
revision-commits)) revision-commits))
(simple-format #t "Querying ~A outputs\n" (simple-format #t "Querying ~A outputs\n"
(length outputs)) (length outputs))
(let ((narinfos (let ((narinfos
(lookup-narinfos (string-trim-right url #\/) outputs))) (lookup-narinfos (string-trim-right build-server-url #\/) outputs)))
(simple-format #t "Got ~A narinfo files\n" (simple-format #t "Got ~A narinfo files\n"
(length narinfos)) (length narinfos))