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 #65 received at 79224@debbugs.gnu.org (full text, mbox, reply):

Received: (at 79224) by debbugs.gnu.org; 12 Aug 2025 09:05:59 +0000
From debbugs-submit-bounces@debbugs.gnu.org Tue Aug 12 05:05:59 2025
Received: from localhost ([127.0.0.1]:51832 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces@debbugs.gnu.org>)
	id 1ulkxD-0007e3-0n
	for submit@debbugs.gnu.org; Tue, 12 Aug 2025 05:05:59 -0400
Received: from 8.mo562.mail-out.ovh.net ([46.105.60.65]:37013)
 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 1ulkwr-0007bI-R3
 for 79224@debbugs.gnu.org; Tue, 12 Aug 2025 05:05:38 -0400
Received: from director2.derp.mail-out.ovh.net
 (director2.derp.mail-out.ovh.net [79.137.60.36])
 by mo562.mail-out.ovh.net (Postfix) with ESMTPS id 4c1QZm51Hqz20qv;
 Tue, 12 Aug 2025 09:05:36 +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:36 +0000 (UTC)
Received: from mta7.priv.ovhmail-u1.ea.mail.ovh.net (unknown [10.110.43.13])
 by director2.derp.mail-out.ovh.net (Postfix) with ESMTPS id 4c1QZm3gD7z1xpf;
 Tue, 12 Aug 2025 09:05:36 +0000 (UTC)
Received: from ngraves.fr (unknown [10.1.6.4])
 by mta7.priv.ovhmail-u1.ea.mail.ovh.net (Postfix) with ESMTPSA id 18757B8325D; 
 Tue, 12 Aug 2025 09:05:35 +0000 (UTC)
Authentication-Results: garm.ovh; auth=pass
 (GARM-105G0064389161d-e6bb-46c5-9f79-396d6ae0a205,
 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 20/43] build-system: guile: Redefine guile-build and
 guile-cross-build.
Date: Tue, 12 Aug 2025 11:04:28 +0200
Message-ID: <20250812090457.19016-20-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: 279223179552350946
X-VR-SPAMSTATE: OK
X-VR-SPAMSCORE: 0
X-VR-SPAMCAUSE: gggruggvucftvghtrhhoucdtuddrgeeffedrtdefgddufeegledvucetufdoteggodetrfdotffvucfrrhhofhhilhgvmecuqfggjfdpvefjgfevmfevgfenuceurghilhhouhhtmecuhedttdenucenucfjughrpefhvfevufffkffojghfgggtgfesthekredtredtjeenucfhrhhomheppfhitgholhgrshcuifhrrghvvghsuceonhhgrhgrvhgvshesnhhgrhgrvhgvshdrfhhrqeenucggtffrrghtthgvrhhnpedvleelgeeffeetleekueegvdfhtedvueffiefhkedtleejkeduveelgfdufeduleenucfkphepuddvjedrtddrtddruddpudejiedrudejledrudegiedrudeinecuvehluhhsthgvrhfuihiivgepjeenucfrrghrrghmpehinhgvthepuddvjedrtddrtddruddpmhgrihhlfhhrohhmpehnghhrrghvvghssehnghhrrghvvghsrdhfrhdpnhgspghrtghpthhtohepvddprhgtphhtthhopeejledvvdegseguvggssghughhsrdhgnhhurdhorhhgpdhrtghpthhtohepnhhgrhgrvhgvshesnhhgrhgrvhgvshdrfhhrpdfovfetjfhoshhtpehmohehiedvmgdpmhhouggvpehsmhhtphhouhht
DKIM-Signature: a=rsa-sha256; bh=J1N1oy8V/waDsP+0YrR8VIDHngjwuRzmRZgZR66Sx+Y=; 
 c=relaxed/relaxed; d=ngraves.fr; h=From;
 s=ovhmo4487190-selector1; t=1754989536; v=1;
 b=jafqqIPBEcUkn2D8ZtRo7Aj4uihoSDx6zBy1sHTaeU9Je4qnI3+ojVfCbdimap5rKL484IFS
 OqYOVjYQzoQ25wtbp8+XK/Ncu47A8otQkEOgsCBLtvY8nonII6a7wb/CqivHr38A0t2mdAb+CMx
 yWIbg49St+tGs7+H1BYN2NGIFmWhD0fxzO64g3m5+28es/tQ9RD5M+CBBEHIPDNALK84iFW18/Z
 ykjBd9whoFz+vGFpwgZGpX8EmLUYpEPAtCBplT2X2d3djlvJHCL3s5xndYY4rJGLKmlLAchWFrp
 hLZe0a60NDhJ0Ypdy1cp/pliWQKVW/g7iYnnpWAHb1P+g==
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/guile.scm
(guile-build): Monadic procedure returns a gexp instead of a derivation.
(guile-cross-build): Monadic procedure returns a gexp instead of a derivation.

Change-Id: I60f2d7707f064ef6a678e8e47e21309d0eb545ef
---
 guix/build-system/guile.scm | 21 +++++----------------
 1 file changed, 5 insertions(+), 16 deletions(-)

diff --git a/guix/build-system/guile.scm b/guix/build-system/guile.scm
index 16e37eefd10..f196464feed 100644
--- a/guix/build-system/guile.scm
+++ b/guix/build-system/guile.scm
@@ -1,5 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2018-2019, 2021-2022 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2024 Nicolas Graves <ngraves@ngraves.fr>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -121,14 +122,8 @@ (define builder
                        #:search-paths '#$(map search-path-specification->sexp
                                               search-paths)))))
 
-  (mlet %store-monad ((guile (package->derivation (or guile (default-guile))
-                                                  system #:graft? #f)))
-    (gexp->derivation name builder
-                      #:system system
-                      #:target #f
-                      #:graft? #f
-                      #:substitutable? substitutable?
-                      #:guile-for-build guile)))
+  (mbegin %store-monad
+    (return builder)))
 
 (define* (guile-cross-build name
                             #:key
@@ -190,14 +185,8 @@ (define %outputs
                        #:make-dynamic-linker-cache? #f ;cross-compiling
                        #:phases #$phases))))
 
-  (mlet %store-monad ((guile (package->derivation (or guile (default-guile))
-                                                  system #:graft? #f)))
-    (gexp->derivation name builder
-                      #:system system
-                      #:target target
-                      #:graft? #f
-                      #:substitutable? substitutable?
-                      #:guile-for-build guile)))
+  (mbegin %store-monad
+    (return builder)))
 
 (define guile-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 00:31:26 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.