[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: scripts: publish: Remove unused argument.
From: |
guix-commits |
Subject: |
01/02: scripts: publish: Remove unused argument. |
Date: |
Tue, 10 Aug 2021 06:01:22 -0400 (EDT) |
mothacehe pushed a commit to branch master
in repository guix.
commit dc8451c1cd01ace41b7e1a4fe21f35ccb05b2c3a
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Aug 9 08:35:32 2021 +0200
scripts: publish: Remove unused argument.
---
guix/scripts/publish.scm | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/guix/scripts/publish.scm b/guix/scripts/publish.scm
index f35f81d..5e1cdee 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)