diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-12-05 16:12:10 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-12-05 16:12:10 +0100 |
| commit | d8072b4af31f0d3b57010b6c6457d582b23029f0 (patch) | |
| tree | 10fe17bea7c2b157aef3bdd00be033718aa3a1a6 | |
| parent | 98e2831fe6aaab769d6392a350faaa374b5cfd15 (diff) | |
| download | data-service-d8072b4af31f0d3b57010b6c6457d582b23029f0.tar data-service-d8072b4af31f0d3b57010b6c6457d582b23029f0.tar.gz | |
Improve variable names in fetch-narinfo-files
| -rw-r--r-- | guix-data-service/builds.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix-data-service/builds.scm b/guix-data-service/builds.scm index 53d751f..e4aaa0f 100644 --- a/guix-data-service/builds.scm +++ b/guix-data-service/builds.scm @@ -210,18 +210,18 @@ LIMIT 15000")) (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 (select-outputs-for-successful-builds-without-known-nar-entries conn - id + build-server-id revision-commits)) (simple-format #t "Querying ~A outputs\n" (length outputs)) (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" (length narinfos)) |