From dc8451c1cd01ace41b7e1a4fe21f35ccb05b2c3a Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Mon, 9 Aug 2021 08:35:32 +0200 Subject: scripts: publish: Remove unused argument. --- guix/scripts/publish.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'guix') 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 @@ (define* (store-item->recutils store-item (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 @@ (define* (render-narinfo store request hash `((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 @@ (define (compressed-nar-size compression) (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) -- cgit v1.2.3