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

publish: Use SRFI-71 instead of SRFI-11.

Browse source 
* guix/scripts/publish.scm (make-request-handler): Use 'let' instead of
'let-values'.
This commit is contained in:
Ludovic Courtès 2022-04-06 11:20:21 +02:00
parent 1f82602153
commit 17c6d00b57
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
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

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