me
/
guix
Archived
1
0
Fork 0
Code

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

* guix/scripts/publish.scm (make-request-handler): Use 'let' instead of
'let-values'.
master
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))))