amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

scripts: publish: Remove unused argument.

Browse source
This commit is contained in:
Mathieu Othacehe 2021-08-09 08:35:32 +02:00
parent 1fa4485fb0
commit dc8451c1cd
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
guix/scripts/publish.scm
View file

@ -320,7 +320,7 @@ with COMPRESSION, starting at NAR-PATH."
(format #f "URL: ~a~%Compression: ~a~%~@[FileSize: ~a~%~]" (format #f "URL: ~a~%Compression: ~a~%~@[FileSize: ~a~%~]"
url (compression-type compression) file-size))) url (compression-type compression) file-size)))
(define* (narinfo-string store store-path key (define* (narinfo-string store store-path
#:key (compressions (list %no-compression)) #:key (compressions (list %no-compression))
(nar-path "nar") (file-sizes '())) (nar-path "nar") (file-sizes '()))
"Generate a narinfo key/value string for STORE-PATH; an exception is raised "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))) `((cache-control (max-age . ,ttl)))
'())) '()))
(cut display (cut display
(narinfo-string store store-path (%private-key) (narinfo-string store store-path
#:nar-path nar-path #:nar-path nar-path
#:compressions compressions) #:compressions compressions)
<>))))) <>)))))
@ -654,7 +654,6 @@ requested using POOL."
(with-store store (with-store store
(let ((sizes (filter-map compressed-nar-size compression))) (let ((sizes (filter-map compressed-nar-size compression)))
(display (narinfo-string store item (display (narinfo-string store item
(%private-key)
#:nar-path nar-path #:nar-path nar-path
#:compressions compressions #:compressions compressions
#:file-sizes sizes) #:file-sizes sizes)