ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-15 11:25:22 -05: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
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/scripts/publish.scm
View file

@ -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)