diff options
| -rw-r--r-- | guix-data-service/builds.scm | 2 | ||||
| -rw-r--r-- | guix-data-service/model/nar.scm | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/guix-data-service/builds.scm b/guix-data-service/builds.scm index 6c5636c..af6d681 100644 --- a/guix-data-service/builds.scm +++ b/guix-data-service/builds.scm @@ -364,7 +364,7 @@ LIMIT 15000")) (define (fetch-narinfo-files conn build-server-id build-server-url revision-commits) (define outputs - (select-outputs-for-successful-builds-without-known-nar-entries + (select-outputs-without-known-nar-entries conn build-server-id revision-commits)) diff --git a/guix-data-service/model/nar.scm b/guix-data-service/model/nar.scm index 9788e95..5e662f2 100644 --- a/guix-data-service/model/nar.scm +++ b/guix-data-service/model/nar.scm @@ -26,7 +26,7 @@ #:use-module (gcrypt base16) #:use-module (guix scripts substitute) #: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-signing-key @@ -297,7 +297,7 @@ ORDER BY COUNT(*) DESC") (string->number count)))) (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 build-server-id guix-revision-commits) |