From patchwork Sat Apr 9 09:13:38 2022 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: =?utf-8?q?Ludovic_Court=C3=A8s?= X-Patchwork-Id: 38463 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id 697F327BBEB; Sat, 9 Apr 2022 10:14:12 +0100 (BST) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-2.7 required=5.0 tests=BAYES_00,DKIM_INVALID, DKIM_SIGNED,MAILING_LIST_MULTI,SPF_HELO_PASS,URIBL_BLOCKED autolearn=unavailable autolearn_force=no version=3.4.6 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id 1B10F27BBEA for ; Sat, 9 Apr 2022 10:14:12 +0100 (BST) Received: from localhost ([::1]:42044 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1nd7AZ-0008SL-6Z for patchwork@mira.cbaines.net; Sat, 09 Apr 2022 05:14:11 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:53834) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nd7AQ-0008RW-PJ for guix-patches@gnu.org; Sat, 09 Apr 2022 05:14:02 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:42823) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1nd7AQ-0003lR-Gi for guix-patches@gnu.org; Sat, 09 Apr 2022 05:14:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1nd7AQ-0008Nz-C7 for guix-patches@gnu.org; Sat, 09 Apr 2022 05:14:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#54811] [PATCH 1/3] publish: Use SRFI-71 instead of SRFI-11. References: <20220409091246.6979-1-ludo@gnu.org> In-Reply-To: <20220409091246.6979-1-ludo@gnu.org> Resent-From: Ludovic =?utf-8?q?Court=C3=A8s?= Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Sat, 09 Apr 2022 09:14:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 54811 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 54811@debbugs.gnu.org Cc: Ludovic =?utf-8?q?Court=C3=A8s?= Received: via spool by 54811-submit@debbugs.gnu.org id=B54811.164949563632188 (code B ref 54811); Sat, 09 Apr 2022 09:14:02 +0000 Received: (at 54811) by debbugs.gnu.org; 9 Apr 2022 09:13:56 +0000 Received: from localhost ([127.0.0.1]:36713 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1nd7AH-0008My-Tx for submit@debbugs.gnu.org; Sat, 09 Apr 2022 05:13:55 -0400 Received: from eggs.gnu.org ([209.51.188.92]:60498) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1nd7AG-0008Mg-II for 54811@debbugs.gnu.org; Sat, 09 Apr 2022 05:13:52 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:46960) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nd7AB-0003kD-Ay; Sat, 09 Apr 2022 05:13:47 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org; s=fencepost-gnu-org; h=MIME-Version:Date:Subject:To:From:in-reply-to: references; bh=SryT9h6F89eVe/pvqBP8Y9PIeGCaGEY6hWVl1LI1CLQ=; b=cnL9fjk6yvSJu9 B7Sy+O8Za5J6I1gdHMbUaDDDR80Fi6H1i2UZibJe2RJgui7RhQbN5KhvlLzxT0xFNd2k8x1n27/Ii D2L38dP6gqHhR3V5sJB2crzztdvlU+1xJv8ExGQiT0qap8t4FqxXYIGFHcWDInpZ297Xh0FCGjS91 Uvm/dCWWz/f0naPMm6e5ixW3ojE9m4euQSWhz4jZ1H7fDuiU2kn3Q7zIUEXLDjS8tD4/BsqBGsWif t/UbjiHHC9AltQnRWWZ3O+uGdPdhaeIRv8uIhBSBc3DaKW49AmJeHOEV7E+EEBtfEl3Ta6G5O/65J rb4u7sVP4LXB0KPsTF7w==; Received: from 91-160-117-201.subs.proxad.net ([91.160.117.201]:58682 helo=gnu.org) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1nd7AA-00086k-V0; Sat, 09 Apr 2022 05:13:47 -0400 From: Ludovic =?utf-8?q?Court=C3=A8s?= Date: Sat, 9 Apr 2022 11:13:38 +0200 Message-Id: <20220409091340.7013-1-ludo@gnu.org> X-Mailer: git-send-email 2.35.1 MIME-Version: 1.0 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: "Guix-patches" X-getmail-retrieved-from-mailbox: Patches * 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))))