From: "Ludovic Courtès" <ludo@gnu.org>
To: 54811@debbugs.gnu.org
Cc: "Ludovic Courtès" <ludo@gnu.org>
Subject: [bug#54811] [PATCH 1/3] publish: Use SRFI-71 instead of SRFI-11.
Date: Sat, 9 Apr 2022 11:13:38 +0200 [thread overview]
Message-ID: <20220409091340.7013-1-ludo@gnu.org> (raw)
In-Reply-To: <20220409091246.6979-1-ludo@gnu.org>
* guix/scripts/publish.scm (make-request-handler): Use 'let' instead of
'let-values'.
---
guix/scripts/publish.scm | 5 ++---
1 file 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 @@ (define-module (guix scripts publish)
#: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 @@ (define (handle request body)
;; 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))))
--
2.35.1
next prev parent reply other threads:[~2022-04-09 9:14 UTC|newest]
Thread overview: 22+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-04-09 9:12 [bug#54811] [PATCH 0/3] Support socket activation in 'guix publish' and 'guix-daemon' Ludovic Courtès
2022-04-09 9:13 ` Ludovic Courtès [this message]
2022-04-09 9:13 ` [bug#54811] [PATCH 2/3] publish: Support systemd-style socket activation Ludovic Courtès
2022-04-09 9:20 ` Maxime Devos
2022-04-14 12:51 ` bug#54811: [PATCH 0/3] Support socket activation in 'guix publish' and 'guix-daemon' Ludovic Courtès
2022-04-09 9:13 ` [bug#54811] [PATCH 3/3] daemon: Support systemd-style socket activation Ludovic Courtès
2022-04-09 9:29 ` Maxime Devos
2022-04-09 20:28 ` [bug#54811] [PATCH 0/3] Support socket activation in 'guix publish' and 'guix-daemon' Ludovic Courtès
2022-04-09 9:19 ` Maxime Devos
2022-04-09 20:30 ` Ludovic Courtès
2022-04-09 20:49 ` Maxime Devos
2022-04-10 17:34 ` Ludovic Courtès
2022-04-10 17:43 ` Maxime Devos
2022-04-11 9:48 ` Ludovic Courtès
2022-04-11 10:06 ` Maxime Devos
2022-04-11 20:33 ` Ludovic Courtès
2022-04-12 8:42 ` Maxime Devos
2022-04-12 10:15 ` Ludovic Courtès
2022-04-12 8:48 ` Maxime Devos
2022-04-11 10:08 ` Maxime Devos
2022-04-11 20:34 ` Ludovic Courtès
2022-04-11 10:10 ` Maxime Devos
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20220409091340.7013-1-ludo@gnu.org \
--to=ludo@gnu.org \
--cc=54811@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.