diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2021-08-09 08:35:32 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2021-08-10 11:51:26 +0200 |
| commit | dc8451c1cd01ace41b7e1a4fe21f35ccb05b2c3a (patch) | |
| tree | 98d68ce30c5c33e0b1409cd0b0847eb6de7afa23 /guix | |
| parent | 1fa4485fb033874fd56b025e8ec998aebc245fe5 (diff) | |
scripts: publish: Remove unused argument.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/scripts/publish.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/guix/scripts/publish.scm b/guix/scripts/publish.scm index f35f81dc34..5e1cdee17d 100644 --- a/guix/scripts/publish.scm +++ b/guix/scripts/publish.scm @@ -320,7 +320,7 @@ with COMPRESSION, starting at NAR-PATH." (format #f "URL: ~a~%Compression: ~a~%~@[FileSize: ~a~%~]" url (compression-type compression) file-size))) -(define* (narinfo-string store store-path key +(define* (narinfo-string store store-path #:key (compressions (list %no-compression)) (nar-path "nar") (file-sizes '())) "Generate a narinfo key/value string for STORE-PATH; an exception is raised @@ -414,7 +414,7 @@ appropriate duration. NAR-PATH specifies the prefix for nar URLs." `((cache-control (max-age . ,ttl))) '())) (cut display - (narinfo-string store store-path (%private-key) + (narinfo-string store store-path #:nar-path nar-path #:compressions compressions) <>))))) @@ -654,7 +654,6 @@ requested using POOL." (with-store store (let ((sizes (filter-map compressed-nar-size compression))) (display (narinfo-string store item - (%private-key) #:nar-path nar-path #:compressions compressions #:file-sizes sizes) |