diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-04-06 11:20:21 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-04-14 14:48:20 +0200 |
| commit | 17c6d00b575bd6d6f3d29a0774f92a05e7792b41 (patch) | |
| tree | 182441a390ed3977856f249e8c2ce1f519c34537 | |
| parent | 1f826021534c5ab290263708e970e8474f0364ff (diff) | |
| download | guix-17c6d00b575bd6d6f3d29a0774f92a05e7792b41.tar.gz guix-17c6d00b575bd6d6f3d29a0774f92a05e7792b41.zip | |
publish: Use SRFI-71 instead of SRFI-11.
* guix/scripts/publish.scm (make-request-handler): Use 'let' instead of
'let-values'.
| -rw-r--r-- | guix/scripts/publish.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/guix/scripts/publish.scm b/guix/scripts/publish.scm index 870dfc11e9..d6eb65d912 100644 --- a/guix/scripts/publish.scm +++ b/guix/scripts/publish.scm @@ -36,11 +36,11 @@ #:use-module (srfi srfi-2) #:use-module (srfi srfi-9) #:use-module (srfi srfi-9 gnu) - #:use-module (srfi srfi-11) #:use-module (srfi srfi-19) #:use-module (srfi srfi-26) #:use-module (srfi srfi-34) #:use-module (srfi srfi-37) + #:use-module (srfi srfi-71) #:use-module (web http) #:use-module (web request) #:use-module (web response) @@ -1190,8 +1190,7 @@ headers." ;; Preserve the request's 'connection' header in the response, so that the ;; server can close the connection if this is requested by the client. (lambda (request body) - (let-values (((response response-body) - (handle request body))) + (let ((response response-body (handle request body))) (values (preserve-connection-headers request response) response-body)))) |