mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 14:07:01 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

publish: Introduce 'actual-compression'.

Browse source 
* guix/scripts/publish.scm (actual-compression): New procedure.
(narinfo-string): Use it.
This commit is contained in:
Ludovic Courtès 2017-04-17 23:11:28 +02:00
parent 1563d6c79f
commit 905ae5276d
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
guix/scripts/publish.scm
View file

@ -110,6 +110,13 @@ (define %default-gzip-compression
;; Since we compress on the fly, default to fast compression.
(compression 'gzip 3))
(define (actual-compression item requested)
"Return the actual compression used for ITEM, which may be %NO-COMPRESSION
if ITEM is already compressed."
(if (compressed-file? item)
%no-compression
requested))
(define %options
(list (option '(#\h "help") #f #f
(lambda _
@ -218,9 +225,7 @@ (define* (narinfo-string store store-path key
if STORE-PATH is invalid. Produce a URL that corresponds to COMPRESSION. The
narinfo is signed with KEY. NAR-PATH specifies the prefix for nar URLs."
(let* ((path-info (query-path-info store store-path))
(compression (if (compressed-file? store-path)
%no-compression
compression))
(compression (actual-compression store-path compression))
(url (encode-and-join-uri-path
`(,@(split-and-decode-uri-path nar-path)
,@(match compression