diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-07-18 23:58:34 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-07-19 00:07:12 +0200 |
| commit | 4a1fc562ae5eedf40f6ae4eabe30580b0983b8f6 (patch) | |
| tree | bb04edd481e5a3687b230b2f05388bc5051bac00 /gnu | |
| parent | 721539026dda02e58addbb618f2102b31a2927f8 (diff) | |
| download | guix-4a1fc562ae5eedf40f6ae4eabe30580b0983b8f6.tar guix-4a1fc562ae5eedf40f6ae4eabe30580b0983b8f6.tar.gz | |
publish: Add '--compression'.
* guix/scripts/publish.scm (show-help, %options): Add '--compression'.
(<compression>): New record type.
(%no-compression, %default-gzip-compression): New variables.
(%default-options): Add 'compression' key.
(narinfo-string): Add #:compression parameter and honor it.
(render-narinfo): Likewise.
(render-nar): Likewise.
<top level>: Add call to 'declare-header!'.
(swallow-zlib-error): New macro.
(nar-response-port): New procedure.
(http-write): Add call to 'force-output'. Use 'nar-response-port'
instead of 'response-port'. Use 'swallow-zlib-error'.
(make-request-handler): Add #:compression parameter and honor it. Add
"nar/gzip" URL handler.
(run-publish-server): Add #:compression parameter and honor it.
(guix-publish): Honor --compression.
* tests/publish.scm (http-get-port, wait-until-ready): New procedures.
<top level>: Run main server with "-C0". Call 'wait-until-ready'.
("/nar/gzip/*", "/*.narinfo with compression"): New tests.
* doc/guix.texi (Invoking guix publish): Document it.
Diffstat (limited to 'gnu')
0 files changed, 0 insertions, 0 deletions