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

Remove -for-successful-builds from procedure name

Browse source 
This used to be the case, but now it just selects all outputs, as that's
quicker overall (as querying the build server is quick).
This commit is contained in:
Christopher Baines 2020-01-05 11:21:24 +00:00
parent e070c20030
commit 0759be52de
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -364,7 +364,7 @@ LIMIT 15000"))
(define (fetch-narinfo-files conn build-server-id build-server-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-without-known-nar-entries
conn conn
build-server-id build-server-id
revision-commits)) revision-commits))

4
guix-data-service/model/nar.scm
View file

@ -26,7 +26,7 @@
#:use-module (gcrypt base16) #:use-module (gcrypt base16)
#:use-module (guix scripts substitute) #:use-module (guix scripts substitute)
#:use-module (guix-data-service model utils) #:use-module (guix-data-service model utils)
#:export (select-outputs-for-successful-builds-without-known-nar-entries #:export (select-outputs-without-known-nar-entries
select-nars-for-output select-nars-for-output
select-signing-key select-signing-key
@ -297,7 +297,7 @@ ORDER BY COUNT(*) DESC")
(string->number count)))) (string->number count))))
(exec-query conn query (list revision-commit))))) (exec-query conn query (list revision-commit)))))
(define (select-outputs-for-successful-builds-without-known-nar-entries (define (select-outputs-without-known-nar-entries
conn conn
build-server-id build-server-id
guix-revision-commits) guix-revision-commits)