GNU bug report logs

#79224 [PATCH 00/43] Extend bag-build to gexps.

PackageSource(s)Maintainer(s)
guix-patches PTS Buildd Popcon
Full log

Message #95 received at 79224@debbugs.gnu.org (full text, mbox, reply):

Received: (at 79224) by debbugs.gnu.org; 12 Aug 2025 09:06:18 +0000
From debbugs-submit-bounces@debbugs.gnu.org Tue Aug 12 05:06:17 2025
Received: from localhost ([127.0.0.1]:51898 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces@debbugs.gnu.org>)
	id 1ulkxV-0007jY-0s
	for submit@debbugs.gnu.org; Tue, 12 Aug 2025 05:06:17 -0400
Received: from 6.mo563.mail-out.ovh.net ([46.105.55.200]:40303)
 by debbugs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.84_2) (envelope-from <ngraves@ngraves.fr>)
 id 1ulkx9-0007ct-BW
 for 79224@debbugs.gnu.org; Tue, 12 Aug 2025 05:05:55 -0400
Received: from director2.derp.mail-out.ovh.net
 (director2.derp.mail-out.ovh.net [79.137.60.36])
 by mo563.mail-out.ovh.net (Postfix) with ESMTPS id 4c1Qb627r2z6MfW;
 Tue, 12 Aug 2025 09:05:54 +0000 (UTC)
Received: from director2.derp.mail-out.ovh.net
 (director2.derp.mail-out.ovh.net. [127.0.0.1])
 by director2.derp.mail-out.ovh.net (inspect_sender_mail_agent) with SMTP
 for <79224@debbugs.gnu.org>; Tue, 12 Aug 2025 09:05:54 +0000 (UTC)
Received: from mta7.priv.ovhmail-u1.ea.mail.ovh.net (unknown [10.109.249.235])
 by director2.derp.mail-out.ovh.net (Postfix) with ESMTPS id
 4c1Qb61CjHz1xqp; Tue, 12 Aug 2025 09:05:54 +0000 (UTC)
Received: from ngraves.fr (unknown [10.1.6.10])
 by mta7.priv.ovhmail-u1.ea.mail.ovh.net (Postfix) with ESMTPSA id 819ABB8325D; 
 Tue, 12 Aug 2025 09:05:53 +0000 (UTC)
Authentication-Results: garm.ovh; auth=pass
 (GARM-110S00482c32f16-28bd-4f55-b6a6-b70816ec4e48,
 C5D759281D113BF028CC7F145FFAF0A9AC8DF452) smtp.auth=ngraves@ngraves.fr
X-OVh-ClientIp: 176.179.146.16
From: Nicolas Graves <ngraves@ngraves.fr>
To: 79224@debbugs.gnu.org
Subject: [PATCH 30/43] build-system: perl: Redefine perl-build and
 perl-cross-build.
Date: Tue, 12 Aug 2025 11:04:38 +0200
Message-ID: <20250812090457.19016-30-ngraves@ngraves.fr>
X-Mailer: git-send-email 2.50.1
In-Reply-To: <20250812090457.19016-1-ngraves@ngraves.fr>
References: <20250812090457.19016-1-ngraves@ngraves.fr>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-Ovh-Tracer-Id: 284289727419048674
X-VR-SPAMSTATE: OK
X-VR-SPAMSCORE: 0
X-VR-SPAMCAUSE: gggruggvucftvghtrhhoucdtuddrgeeffedrtdefgddufeegleefucetufdoteggodetrfdotffvucfrrhhofhhilhgvmecuqfggjfdpvefjgfevmfevgfenuceurghilhhouhhtmecuhedttdenucenucfjughrpefhvfevufffkffojghfgggtgfesthekredtredtjeenucfhrhhomheppfhitgholhgrshcuifhrrghvvghsuceonhhgrhgrvhgvshesnhhgrhgrvhgvshdrfhhrqeenucggtffrrghtthgvrhhnpedvleelgeeffeetleekueegvdfhtedvueffiefhkedtleejkeduveelgfdufeduleenucfkphepuddvjedrtddrtddruddpudejiedrudejledrudegiedrudeinecuvehluhhsthgvrhfuihiivgeptdenucfrrghrrghmpehinhgvthepuddvjedrtddrtddruddpmhgrihhlfhhrohhmpehnghhrrghvvghssehnghhrrghvvghsrdhfrhdpnhgspghrtghpthhtohepvddprhgtphhtthhopeejledvvdegseguvggssghughhsrdhgnhhurdhorhhgpdhrtghpthhtohepnhhgrhgrvhgvshesnhhgrhgrvhgvshdrfhhrpdfovfetjfhoshhtpehmohehieefmgdpmhhouggvpehsmhhtphhouhht
DKIM-Signature: a=rsa-sha256; bh=w2EN+RrUpuk7PWvybjO/zBSfFsLRVhm0d1Pu6kWYPt0=; 
 c=relaxed/relaxed; d=ngraves.fr; h=From;
 s=ovhmo4487190-selector1; t=1754989554; v=1;
 b=EnStLzq0R5hhF58jDSWH7N1G9UDo1x39ie35IWAmCOklnWCPJAB24PhHwrGrZbEd83kLyXe7
 JSGC3xty2FTu+yh6HCU+DCEDuYF/K6tYAekx+XqKN/12o33jSlQSBFZXNPRRr5RbFnck18xxJat
 pYaIelgVyFoAXkNkAJGT3UwUpBzhbw/WdaDsALMmMuj7xyruUnDd2+f5P8tuhXygGBozf6avTy0
 nLyggq9GxhTy3qzpmp2NRe4RyTdopZTXfSZM50fmYvlwWt1L+Dvt4GE3ELoTi7GdRSKzIs78z3y
 qJzo5OceXYPIGhE3phx0reQXcjFeZnmLmzIUwmGmYtzWQ==
X-Spam-Score: 0.0 (/)
X-Debbugs-Envelope-To: 79224
Cc: Nicolas Graves <ngraves@ngraves.fr>
X-BeenThere: debbugs-submit@debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request@debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit@debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request@debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request@debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces@debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
X-Spam-Score: -1.0 (-)

* guix/build-system/perl.scm
(perl-build): Monadic procedure returns a gexp instead of a derivation.
(perl-cross-build): Monadic procedure returns a gexp instead of a derivation.

Change-Id: Id54ae050c2b64269ea42ec9f89d9c3a84ad4429a
---
 guix/build-system/perl.scm | 22 ++++++----------------
 1 file changed, 6 insertions(+), 16 deletions(-)

diff --git a/guix/build-system/perl.scm b/guix/build-system/perl.scm
index 98d48fec7c0..3f088fa6bfa 100644
--- a/guix/build-system/perl.scm
+++ b/guix/build-system/perl.scm
@@ -1,6 +1,7 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2013, 2014, 2015, 2021 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2022 Maxime Devos <maximedevos@telenet.be>
+;;; Copyright © 2024 Nicolas Graves <ngraves@ngraves.fr>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -120,7 +121,7 @@ (define* (perl-build name inputs
                                 (guix build utils))))
   "Build SOURCE using PERL, and with INPUTS.  This assumes that SOURCE
 provides a `Makefile.PL' file as its build system."
-  (define build
+  (define builder
     (with-imported-modules imported-modules
       #~(begin
           (use-modules #$@(sexp->gexp modules))
@@ -146,14 +147,8 @@ (define build
                             #:parallel-tests? #$parallel-tests?
                             #:outputs %outputs
                             #:inputs %build-inputs)))))
-
-  (mlet %store-monad ((guile (package->derivation (or guile (default-guile))
-                                                  system #:graft? #f)))
-    (gexp->derivation name build
-                      #:system system
-                      #:target #f
-                      #:graft? #f
-                      #:guile-for-build guile)))
+  (mbegin %store-monad
+    (return builder)))
 
 (define* (perl-cross-build name #:key
                            source
@@ -211,13 +206,8 @@ (define builder
                       #:outputs #$(outputs->gexp outputs)
                       #:inputs #$inputs
                       #:native-inputs #+(input-tuples->gexp build-inputs)))))
-  (mlet %store-monad ((guile (package->derivation (or guile (default-guile))
-                                                  system #:graft? #f)))
-    (gexp->derivation name builder
-                      #:system system
-                      #:target target
-                      #:graft? #false
-                      #:guile-for-build guile)))
+ (mbegin %store-monad
+    (return builder)))
 
 (define perl-build-system
   (build-system
-- 
2.50.1

Send a report that this bug log contains spam.

debbugs.gnu.org maintainers <help-debbugs@gnu.org>. Last modified: Wed Sep 10 12:53:48 2025; Machine Name: wallace-server

GNU bug tracking system

Debbugs is free software and licensed under the terms of the GNU Public License version 2. The current version can be obtained from https://bugs.debian.org/debbugs-source/.

Copyright © 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson, 2005-2017 Don Armstrong, and many other contributors.