me/guix
Archived
1
0
Fork 0
Code Activity

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-2)
#:use-module (srfi srfi-9) #:use-module (srfi srfi-9)
#:use-module (srfi srfi-9 gnu) #:use-module (srfi srfi-9 gnu)
#:use-module (srfi srfi-11)
#:use-module (srfi srfi-19) #:use-module (srfi srfi-19)
#:use-module (srfi srfi-26) #:use-module (srfi srfi-26)
#:use-module (srfi srfi-34) #:use-module (srfi srfi-34)
#:use-module (srfi srfi-37) #:use-module (srfi srfi-37)
#:use-module (srfi srfi-71)
#:use-module (web http) #:use-module (web http)
#:use-module (web request) #:use-module (web request)
#:use-module (web response) #:use-module (web response)
@ -1190,8 +1190,7 @@ headers."
;; Preserve the request's 'connection' header in the response, so that the ;; Preserve the request's 'connection' header in the response, so that the
;; server can close the connection if this is requested by the client. ;; server can close the connection if this is requested by the client.
(lambda (request body) (lambda (request body)
(let-values (((response response-body) (let ((response response-body (handle request body)))
(handle request body)))
(values (preserve-connection-headers request response) (values (preserve-connection-headers request response)
response-body)))) response-body))))