From unknown Fri Jun 20 07:28:54 2025 X-Loop: help-debbugs@gnu.org Subject: bug#45896: Non-pull =?UTF-8?Q?=E2=80=98guix=E2=80=99?= should know its channels Resent-From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Original-Sender: "Debbugs-submit" Resent-CC: bug-guix@gnu.org Resent-Date: Fri, 15 Jan 2021 17:52:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 45896 X-GNU-PR-Package: guix X-GNU-PR-Keywords: To: 45896@debbugs.gnu.org X-Debbugs-Original-To: Received: via spool by submit@debbugs.gnu.org id=B.161073309531215 (code B ref -1); Fri, 15 Jan 2021 17:52:02 +0000 Received: (at submit) by debbugs.gnu.org; 15 Jan 2021 17:51:35 +0000 Received: from localhost ([127.0.0.1]:41660 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l0TFo-00087B-RS for submit@debbugs.gnu.org; Fri, 15 Jan 2021 12:51:34 -0500 Received: from lists.gnu.org ([209.51.188.17]:59452) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l0TFm-000872-Ry for submit@debbugs.gnu.org; Fri, 15 Jan 2021 12:51:19 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]:46644) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1l0TFm-00041t-A3 for bug-guix@gnu.org; Fri, 15 Jan 2021 12:51:18 -0500 Received: from fencepost.gnu.org ([2001:470:142:3::e]:34736) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1l0TFk-0004T7-N5 for bug-guix@gnu.org; Fri, 15 Jan 2021 12:51:18 -0500 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=43288 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1l0TFk-00050l-1D for bug-guix@gnu.org; Fri, 15 Jan 2021 12:51:16 -0500 From: Ludovic =?UTF-8?Q?Court=C3=A8s?= X-URL: http://www.fdn.fr/~lcourtes/ X-Revolutionary-Date: 26 =?UTF-8?Q?Niv=C3=B4se?= an 229 de la =?UTF-8?Q?R=C3=A9volution?= X-PGP-Key-ID: 0x090B11993D9AEBB5 X-PGP-Key: http://www.fdn.fr/~lcourtes/ludovic.asc X-PGP-Fingerprint: 3CE4 6455 8A84 FDC6 9DB4 0CFB 090B 1199 3D9A EBB5 X-OS: x86_64-pc-linux-gnu Date: Fri, 15 Jan 2021 18:51:14 +0100 Message-ID: <874kjixf59.fsf@inria.fr> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: -2.3 (--) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) Related to , we have the problem that the =E2=80=98guix=E2=80=99 command coming from the =E2=80=98guix=E2=80=99 p= ackage doesn=E2=80=99t know its provenance: =E2=80=98guix describe=E2=80=99 errors out. We should fix it by storing a meta-data file within the =E2=80=98guix=E2=80= =99 package. Likewise, on foreign distros, /usr/local/bin/guix may point to a =E2=80=98g= uix pull=E2=80=99-guix, but because of the symlink, =E2=80=98guix describe=E2= =80=99 won=E2=80=99t work: --8<---------------cut here---------------start------------->8--- $ type -P guix /home/ludo/.config/guix/current/bin/guix $ guix describe Generacio 171 Jan 11 2021 11:38:39 (nuna) guix 458cb25 repository URL: https://git.savannah.gnu.org/git/guix.git branch: master commit: 458cb25b9e7e7c954f468023abea2bebb5d8c75b $ ln -s $(type -P guix) /tmp $ /tmp/guix describe guix describe: error: failed to determine origin hint: Perhaps this `guix' command was not obtained with `guix pull'? Its version string is 458cb25b9e7e7c954f468023abea2bebb5d8c75b. --8<---------------cut here---------------end--------------->8--- We should probably store proper provenance info directly in the =E2=80=98gu= ix=E2=80=99 output, just like we store the commit ID in (guix config). Ludo=E2=80=99. From debbugs-submit-bounces@debbugs.gnu.org Sat Jan 16 06:12:06 2021 Received: (at control) by debbugs.gnu.org; 16 Jan 2021 11:12:07 +0000 Received: from localhost ([127.0.0.1]:42478 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l0jV0-0005r6-Js for submit@debbugs.gnu.org; Sat, 16 Jan 2021 06:12:06 -0500 Received: from hera.aquilenet.fr ([185.233.100.1]:50392) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l0jUy-0005qU-FD for control@debbugs.gnu.org; Sat, 16 Jan 2021 06:12:04 -0500 Received: from localhost (localhost [127.0.0.1]) by hera.aquilenet.fr (Postfix) with ESMTP id 35273661 for ; Sat, 16 Jan 2021 12:11:58 +0100 (CET) X-Virus-Scanned: Debian amavisd-new at aquilenet.fr Received: from hera.aquilenet.fr ([127.0.0.1]) by localhost (hera.aquilenet.fr [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id MCt2y8e0wocs for ; Sat, 16 Jan 2021 12:11:57 +0100 (CET) Received: from ribbon (unknown [IPv6:2a01:e0a:1d:7270:af76:b9b:ca24:c465]) by hera.aquilenet.fr (Postfix) with ESMTPSA id 504FC5FA for ; Sat, 16 Jan 2021 12:11:57 +0100 (CET) Date: Sat, 16 Jan 2021 12:11:56 +0100 Message-Id: <87im7xyw3n.fsf@gnu.org> To: control@debbugs.gnu.org From: =?utf-8?Q?Ludovic_Court=C3=A8s?= Subject: control message for bug #45896 MIME-version: 1.0 Content-type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-Spamd-Bar: / Authentication-Results: hera.aquilenet.fr X-Rspamd-Server: hera X-Rspamd-Queue-Id: 35273661 X-Spamd-Result: default: False [-0.63 / 15.00]; ARC_NA(0.00)[]; RCVD_VIA_SMTP_AUTH(0.00)[]; FROM_HAS_DN(0.00)[]; TO_MATCH_ENVRCPT_ALL(0.00)[]; MIME_GOOD(-0.10)[text/plain]; PREVIOUSLY_DELIVERED(0.00)[control@debbugs.gnu.org]; TO_DN_NONE(0.00)[]; RCPT_COUNT_ONE(0.00)[1]; RCVD_NO_TLS_LAST(0.10)[]; FROM_EQ_ENVFROM(0.00)[]; RCVD_COUNT_TWO(0.00)[2]; MID_RHS_MATCH_FROM(0.00)[]; BAYES_HAM(-0.63)[82.35%] X-Spam-Score: 1.0 (+) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.0 (/) severity 45896 important quit From debbugs-submit-bounces@debbugs.gnu.org Sat Jan 16 06:12:17 2021 Received: (at control) by debbugs.gnu.org; 16 Jan 2021 11:12:17 +0000 Received: from localhost ([127.0.0.1]:42481 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l0jVA-0005rT-UG for submit@debbugs.gnu.org; Sat, 16 Jan 2021 06:12:17 -0500 Received: from hera.aquilenet.fr ([185.233.100.1]:50414) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l0jV8-0005rF-Md for control@debbugs.gnu.org; Sat, 16 Jan 2021 06:12:15 -0500 Received: from localhost (localhost [127.0.0.1]) by hera.aquilenet.fr (Postfix) with ESMTP id 47E265FA for ; Sat, 16 Jan 2021 12:12:09 +0100 (CET) X-Virus-Scanned: Debian amavisd-new at aquilenet.fr Received: from hera.aquilenet.fr ([127.0.0.1]) by localhost (hera.aquilenet.fr [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id wU5yU5JE8YBn for ; Sat, 16 Jan 2021 12:12:08 +0100 (CET) Received: from ribbon (unknown [IPv6:2a01:e0a:1d:7270:af76:b9b:ca24:c465]) by hera.aquilenet.fr (Postfix) with ESMTPSA id A475775 for ; Sat, 16 Jan 2021 12:12:08 +0100 (CET) Date: Sat, 16 Jan 2021 12:12:08 +0100 Message-Id: <87h7nhyw3b.fsf@gnu.org> To: control@debbugs.gnu.org From: =?utf-8?Q?Ludovic_Court=C3=A8s?= Subject: control message for bug #45895 MIME-version: 1.0 Content-type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-Spamd-Bar: / Authentication-Results: hera.aquilenet.fr X-Rspamd-Server: hera X-Rspamd-Queue-Id: 47E265FA X-Spamd-Result: default: False [-0.63 / 15.00]; ARC_NA(0.00)[]; RCVD_VIA_SMTP_AUTH(0.00)[]; FROM_HAS_DN(0.00)[]; TO_MATCH_ENVRCPT_ALL(0.00)[]; MIME_GOOD(-0.10)[text/plain]; PREVIOUSLY_DELIVERED(0.00)[control@debbugs.gnu.org]; TO_DN_NONE(0.00)[]; RCPT_COUNT_ONE(0.00)[1]; RCVD_NO_TLS_LAST(0.10)[]; FROM_EQ_ENVFROM(0.00)[]; RCVD_COUNT_TWO(0.00)[2]; MID_RHS_MATCH_FROM(0.00)[]; BAYES_HAM(-0.63)[82.35%] X-Spam-Score: 1.0 (+) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.0 (/) block 45895 by 45896 quit From unknown Fri Jun 20 07:28:54 2025 X-Loop: help-debbugs@gnu.org Subject: bug#45896: Non-pull =?UTF-8?Q?=E2=80=98guix=E2=80=99?= should know its channels Resent-From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Original-Sender: "Debbugs-submit" Resent-CC: bug-guix@gnu.org Resent-Date: Tue, 26 Jan 2021 13:18:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 45896 X-GNU-PR-Package: guix X-GNU-PR-Keywords: To: 45896@debbugs.gnu.org Received: via spool by 45896-submit@debbugs.gnu.org id=B45896.16116670466995 (code B ref 45896); Tue, 26 Jan 2021 13:18:02 +0000 Received: (at 45896) by debbugs.gnu.org; 26 Jan 2021 13:17:26 +0000 Received: from localhost ([127.0.0.1]:41039 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l4ODl-0001ol-Ie for submit@debbugs.gnu.org; Tue, 26 Jan 2021 08:17:25 -0500 Received: from eggs.gnu.org ([209.51.188.92]:42368) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l4ODj-0001oY-C8 for 45896@debbugs.gnu.org; Tue, 26 Jan 2021 08:17:23 -0500 Received: from fencepost.gnu.org ([2001:470:142:3::e]:48871) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1l4ODe-0000MC-0g for 45896@debbugs.gnu.org; Tue, 26 Jan 2021 08:17:18 -0500 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=37516 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1l4ODL-000816-3d for 45896@debbugs.gnu.org; Tue, 26 Jan 2021 08:17:05 -0500 From: Ludovic =?UTF-8?Q?Court=C3=A8s?= References: <874kjixf59.fsf@inria.fr> Date: Tue, 26 Jan 2021 14:16:57 +0100 In-Reply-To: <874kjixf59.fsf@inria.fr> ("Ludovic =?UTF-8?Q?Court=C3=A8s?="'s message of "Fri, 15 Jan 2021 18:51:14 +0100") Message-ID: <87v9bjzvli.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: -2.3 (--) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) Ludovic Court=C3=A8s skribis: > Likewise, on foreign distros, /usr/local/bin/guix may point to a =E2=80= =98guix > pull=E2=80=99-guix, but because of the symlink, =E2=80=98guix describe=E2= =80=99 won=E2=80=99t work: > > $ type -P guix > /home/ludo/.config/guix/current/bin/guix > $ guix describe > Generacio 171 Jan 11 2021 11:38:39 (nuna) > guix 458cb25 > repository URL: https://git.savannah.gnu.org/git/guix.git > branch: master > commit: 458cb25b9e7e7c954f468023abea2bebb5d8c75b > $ ln -s $(type -P guix) /tmp > $ /tmp/guix describe > guix describe: error: failed to determine origin > hint: Perhaps this `guix' command was not obtained with `guix pull'? Its > version string is 458cb25b9e7e7c954f468023abea2bebb5d8c75b. This problem extends beyond that: channel modules are not found if the symlink is dereferenced: --8<---------------cut here---------------start------------->8--- $ /tmp/guix-science/bin/guix describe=20 Generacio 1 Jan 26 2021 14:13:46 (nuna) guix-past 829923f repository URL: https://gitlab.inria.fr/guix-hpc/guix-past branch: master commit: 829923f01f894f1e687735627025ada26230832f guix-science cf87b05 repository URL: https://github.com/guix-science/guix-science.git branch: master commit: cf87b0501c4a38b96edf41025a27bf1cb91f521a guix 51418c3 repository URL: https://git.savannah.gnu.org/git/guix.git branch: master commit: 51418c32d95d8188d8877616829f26479f1135c6 $ $(readlink -f /tmp/guix-science/bin/guix) describe=20 guix describe: error: failed to determine origin hint: Perhaps this `guix' command was not obtained with `guix pull'? Its ve= rsion string is 51418c32d95d8188d8877616829f26479f1135c6. $ /tmp/guix-science/bin/guix build python2@2.4 -n La jenaj derivoj estus konstruataj: /gnu/store/xsk3vg48dfbwcc5w8pn08x5x15n5prpz-python2-2.4.6.drv /gnu/store/pnxh0lx28iydhw354xgcfbzk9r6zs6dx-Python-2.4.6.tar.xz.drv /gnu/store/fi2my0k9lfag52siz1h7xqwqbzwjkirc-Python-2.4.6.tar.bz2.drv 14.2 MB would be downloaded: /gnu/store/6wn346cbw1mh6264v426pwj2klgvxr0z-gcc-5.5.0 $ $(readlink -f /tmp/guix-science/bin/guix) build python2@2.4 -n guix build: error: python2: pako ne trovita por versio 2.4 --8<---------------cut here---------------end--------------->8--- Ludo=E2=80=99. From unknown Fri Jun 20 07:28:54 2025 X-Loop: help-debbugs@gnu.org Subject: bug#45896: [PATCH 1/3] channels: Record 'guix' channel metadata in (guix config). Resent-From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Original-Sender: "Debbugs-submit" Resent-CC: bug-guix@gnu.org Resent-Date: Wed, 27 Jan 2021 21:52:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 45896 X-GNU-PR-Package: guix X-GNU-PR-Keywords: To: 45896@debbugs.gnu.org Cc: Ludovic =?UTF-8?Q?Court=C3=A8s?= Received: via spool by 45896-submit@debbugs.gnu.org id=B45896.161178430816760 (code B ref 45896); Wed, 27 Jan 2021 21:52:02 +0000 Received: (at 45896) by debbugs.gnu.org; 27 Jan 2021 21:51:48 +0000 Received: from localhost ([127.0.0.1]:46291 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l4sj5-0004ME-F7 for submit@debbugs.gnu.org; Wed, 27 Jan 2021 16:51:48 -0500 Received: from eggs.gnu.org ([209.51.188.92]:58128) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l4sj0-0004Lm-T7 for 45896@debbugs.gnu.org; Wed, 27 Jan 2021 16:51:45 -0500 Received: from fencepost.gnu.org ([2001:470:142:3::e]:56311) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1l4siu-00049M-Kx; Wed, 27 Jan 2021 16:51:36 -0500 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=51252 helo=gnu.org) by fencepost.gnu.org with esmtpsa (TLS1.2:DHE_RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1l4siu-0006IH-92; Wed, 27 Jan 2021 16:51:36 -0500 From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Date: Wed, 27 Jan 2021 22:51:28 +0100 Message-Id: <20210127215130.24530-1-ludo@gnu.org> X-Mailer: git-send-email 2.30.0 In-Reply-To: <874kjixf59.fsf@inria.fr> References: <874kjixf59.fsf@inria.fr> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-Spam-Score: -2.3 (--) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) Partially fixes . * guix/config.scm.in (%channel-metadata): New variable. * guix/describe.scm (channel-metadata): Use it. (current-channels): New procedure. (current-profile-entries): Clarify docstring. * guix/self.scm (compiled-guix): Add #:channel-metadata and pass it to 'make-config.scm'. (make-config.scm): Add #:channel-metadata and define '%channel-metadata' in the generated file. (guix-derivation): Add #:channel-metadata and pass it to 'compiled-guix'. * guix/channels.scm (build-from-source): Replace 'name', 'source', and 'commit' parameters with 'instance'. Pass #:channel-metadata to BUILD. (build-channel-instance): Adjust accordingly. * build-aux/build-self.scm (build-program): Add #:channel-metadata and pass it to 'guix-derivation'. (build): Add #:channel-metadata and pass it to 'build-program'. * guix/scripts/describe.scm (display-profile-info): Add optional 'channels' parameter. Pass it to 'display-profile-content'. (display-profile-content): Add optional 'channels' parameter and honor it. Iterate on CHANNELS rather than on the manifest entries of PROFILE. (guix-describe): When PROFILE is #f, call 'current-channels' and pass it to 'display-profile-info', unless it returns the empty list. --- build-aux/build-self.scm | 11 ++++-- guix/channels.scm | 30 ++++++++++------- guix/config.scm.in | 11 +++++- guix/describe.scm | 28 ++++++++++++++-- guix/scripts/describe.scm | 70 +++++++++++++++++++-------------------- guix/self.scm | 25 +++++++++++--- 6 files changed, 116 insertions(+), 59 deletions(-) diff --git a/build-aux/build-self.scm b/build-aux/build-self.scm index d5bc5fb46e..6a3b9c83d4 100644 --- a/build-aux/build-self.scm +++ b/build-aux/build-self.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2014, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès +;;; Copyright © 2014, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; @@ -241,7 +241,7 @@ interface (FFI) of Guile.") (define* (build-program source version #:optional (guile-version (effective-version)) - #:key (pull-version 0)) + #:key (pull-version 0) (channel-metadata #f)) "Return a program that computes the derivation to build Guix from SOURCE." (define select? ;; Select every module but (guix config) and non-Guix modules. @@ -359,6 +359,8 @@ interface (FFI) of Guile.") (run-with-store store (guix-derivation source version #$guile-version + #:channel-metadata + '#$channel-metadata #:pull-version #$pull-version) #:system system) @@ -380,7 +382,9 @@ interface (FFI) of Guile.") ;; The procedure below is our return value. (define* (build source - #:key verbose? (version (date-version-string)) system + #:key verbose? + (version (date-version-string)) channel-metadata + system (pull-version 0) ;; For the standalone Guix, default to Guile 3.0. For old @@ -397,6 +401,7 @@ files." ;; Build the build program and then use it as a trampoline to build from ;; SOURCE. (mlet %store-monad ((build (build-program source version guile-version + #:channel-metadata channel-metadata #:pull-version pull-version)) (system (if system (return system) (current-system))) (home -> (getenv "HOME")) diff --git a/guix/channels.scm b/guix/channels.scm index e7e1eb6fd0..3cc3b4c438 100644 --- a/guix/channels.scm +++ b/guix/channels.scm @@ -626,16 +626,23 @@ that unconditionally resumes the continuation." (values (run-with-store store mvalue) store)))) -(define* (build-from-source name source - #:key core verbose? commit - (dependencies '())) - "Return a derivation to build Guix from SOURCE, using the self-build script -contained therein; use COMMIT as the version string. When CORE is true, build -package modules under SOURCE using CORE, an instance of Guix." +(define* (build-from-source instance + #:key core verbose? (dependencies '())) + "Return a derivation to build Guix from INSTANCE, using the self-build +script contained therein. When CORE is true, build package modules under +SOURCE using CORE, an instance of Guix." + (define name + (symbol->string + (channel-name (channel-instance-channel instance)))) + (define source + (channel-instance-checkout instance)) + (define commit + (channel-instance-commit instance)) + ;; Running the self-build script makes it easier to update the build ;; procedure: the self-build script of the Guix-to-be-installed contains the ;; right dependencies, build procedure, etc., which the Guix-in-use may not - ;; be know. + ;; know. (define script (string-append source "/" %self-build-file)) @@ -661,7 +668,9 @@ package modules under SOURCE using CORE, an instance of Guix." ;; cause us to redo half of the BUILD computation several times just ;; to realize it gives the same result. (with-trivial-build-handler - (build source #:verbose? verbose? #:version commit + (build source + #:verbose? verbose? #:version commit + #:channel-metadata (channel-instance->sexp instance) #:pull-version %pull-version)))) ;; Build a set of modules that extend Guix using the standard method. @@ -672,10 +681,7 @@ package modules under SOURCE using CORE, an instance of Guix." "Return, as a monadic value, the derivation for INSTANCE, a channel instance. DEPENDENCIES is a list of extensions providing Guile modules that INSTANCE depends on." - (build-from-source (symbol->string - (channel-name (channel-instance-channel instance))) - (channel-instance-checkout instance) - #:commit (channel-instance-commit instance) + (build-from-source instance #:core core #:dependencies dependencies)) diff --git a/guix/config.scm.in b/guix/config.scm.in index b2901735d8..223c9eb418 100644 --- a/guix/config.scm.in +++ b/guix/config.scm.in @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2018, 2019 Ludovic Courtès +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2018, 2019, 2021 Ludovic Courtès ;;; Copyright © 2017 Caleb Ristvedt ;;; ;;; This file is part of GNU Guix. @@ -23,6 +23,8 @@ %guix-bug-report-address %guix-home-page-url + %channel-metadata + %storedir %localstatedir %sysconfdir @@ -56,6 +58,13 @@ (define %guix-home-page-url "@PACKAGE_URL@") +(define %channel-metadata + ;; When true, this is an sexp containing metadata for the 'guix' channel + ;; this file was built from. This is used by (guix describe). + + ;; TODO: Implement 'configure.ac' machinery to initialize it. + #f) + (define %storedir "@storedir@") diff --git a/guix/describe.scm b/guix/describe.scm index ac89fc0d7c..6a31c707f0 100644 --- a/guix/describe.scm +++ b/guix/describe.scm @@ -23,12 +23,13 @@ #:use-module ((guix utils) #:select (location-file)) #:use-module ((guix store) #:select (%store-prefix store-path?)) #:use-module ((guix config) #:select (%state-directory)) - #:autoload (guix channels) (sexp->channel) + #:autoload (guix channels) (sexp->channel manifest-entry-channel) #:use-module (srfi srfi-1) #:use-module (ice-9 match) #:export (current-profile current-profile-date current-profile-entries + current-channels package-path-entries package-provenance @@ -87,10 +88,19 @@ as a number of seconds since the Epoch, or #f if it could not be determined." (string-append (dirname file) "/" target))))) (const #f))))))) +(define (channel-metadata) + "Return the 'guix' channel metadata sexp from (guix config) if available; +otherwise return #f." + ;; Older 'build-self.scm' would create a (guix config) file without the + ;; '%channel-metadata' variable. Thus, properly deal with a lack of + ;; information. + (let ((module (resolve-interface '(guix config)))) + (and=> (module-variable module '%channel-metadata) variable-ref))) + (define current-profile-entries (mlambda () "Return the list of entries in the 'guix pull' profile the calling process -lives in, or #f if this is not applicable." +lives in, or the empty list if this is not applicable." (match (current-profile) (#f '()) (profile @@ -105,6 +115,20 @@ lives in, or #f if this is not applicable." (string=? (manifest-entry-name entry) "guix")) (current-profile-entries)))) +(define current-channels + (mlambda () + "Return the list of channels currently available, including the 'guix' +channel. Return the empty list if this information is missing." + (match (current-profile-entries) + (() + ;; As a fallback, if we're not running from a profile, use 'guix' + ;; channel metadata from (guix config). + (match (channel-metadata) + (#f '()) + (sexp (or (and=> (sexp->channel sexp 'guix) list) '())))) + (entries + (filter-map manifest-entry-channel entries))))) + (define (package-path-entries) "Return two values: the list of package path entries to be added to the package search path, and the list to be added to %LOAD-COMPILED-PATH. These diff --git a/guix/scripts/describe.scm b/guix/scripts/describe.scm index e47d207ee0..cd5d3838a8 100644 --- a/guix/scripts/describe.scm +++ b/guix/scripts/describe.scm @@ -182,20 +182,18 @@ string is ~a.~%") (current-output-port)))) (display-package-search-path fmt))) -(define (display-profile-info profile fmt) +(define* (display-profile-info profile fmt + #:optional + (channels (profile-channels profile))) "Display information about PROFILE, a profile as created by (guix channels), -in the format specified by FMT." +in the format specified by FMT. PROFILE can be #f, in which case CHANNELS is +what matters." (define number - (generation-number profile)) - - (define channels - (profile-channels (if (zero? number) - profile - (generation-file-name profile number)))) + (and profile (generation-number profile))) (match fmt ('human - (display-profile-content profile number)) + (display-profile-content profile number channels)) ('channels (pretty-print `(list ,@(map channel->code channels)))) ('channels-sans-intro @@ -213,33 +211,29 @@ in the format specified by FMT." channels)))) (display-package-search-path fmt)) -(define (display-profile-content profile number) - "Display the packages in PROFILE, generation NUMBER, in a human-readable -way and displaying details about the channel's source code." - (display-generation profile number) - (for-each (lambda (entry) +(define* (display-profile-content profile number + #:optional + (channels (profile-channels profile))) + "Display CHANNELS along with PROFILE info, generation NUMBER, in a +human-readable way and displaying details about the channel's source code. +PROFILE and NUMBER " + (when (and number profile) + (display-generation profile number)) + + (for-each (lambda (channel) (format #t " ~a ~a~%" - (manifest-entry-name entry) - (manifest-entry-version entry)) - (match (manifest-entry-channel entry) - ((? channel? channel) - (format #t (G_ " repository URL: ~a~%") - (channel-url channel)) - (when (channel-branch channel) - (format #t (G_ " branch: ~a~%") - (channel-branch channel))) - (format #t (G_ " commit: ~a~%") - (if (supports-hyperlinks?) - (channel-commit-hyperlink channel) - (channel-commit channel)))) - (_ #f))) - - ;; Show most recently installed packages last. - (reverse - (manifest-entries - (profile-manifest (if (zero? number) - profile - (generation-file-name profile number))))))) + (channel-name channel) + (string-take (channel-commit channel) 7)) + (format #t (G_ " repository URL: ~a~%") + (channel-url channel)) + (when (channel-branch channel) + (format #t (G_ " branch: ~a~%") + (channel-branch channel))) + (format #t (G_ " commit: ~a~%") + (if (supports-hyperlinks?) + (channel-commit-hyperlink channel) + (channel-commit channel)))) + channels)) (define %vcs-web-views ;; Hard-coded list of host names and corresponding web view URL templates. @@ -295,6 +289,10 @@ text. The hyperlink links to a web view of COMMIT, when available." (with-error-handling (match profile (#f - (display-checkout-info format)) + (match (current-channels) + (() + (display-checkout-info format)) + (channels + (display-profile-info #f format channels)))) (profile (display-profile-info (canonicalize-profile profile) format)))))) diff --git a/guix/self.scm b/guix/self.scm index 15c8ad4eb9..35fba1152d 100644 --- a/guix/self.scm +++ b/guix/self.scm @@ -793,7 +793,9 @@ itself." (((labels packages _ ...) ...) (cons package packages)))) -(define* (compiled-guix source #:key (version %guix-version) +(define* (compiled-guix source #:key + (version %guix-version) + (channel-metadata #f) (pull-version 1) (name (string-append "guix-" version)) (guile-version (effective-version)) @@ -977,6 +979,8 @@ itself." %guix-package-name #:package-version version + #:channel-metadata + channel-metadata #:bug-report-address %guix-bug-report-address #:home-page-url @@ -1070,6 +1074,7 @@ itself." (define* (make-config.scm #:key gzip xz bzip2 (package-name "GNU Guix") (package-version "0") + (channel-metadata #f) (bug-report-address "bug-guix@gnu.org") (home-page-url "https://guix.gnu.org")) @@ -1083,6 +1088,7 @@ itself." %guix-version %guix-bug-report-address %guix-home-page-url + %channel-metadata %system %store-directory %state-directory @@ -1125,6 +1131,11 @@ itself." (define %guix-bug-report-address #$bug-report-address) (define %guix-home-page-url #$home-page-url) + (define %channel-metadata + ;; Metadata for the 'guix' channel in use. This + ;; information is used by (guix describe). + '#$channel-metadata) + (define %gzip #+(and gzip (file-append gzip "/bin/gzip"))) (define %bzip2 @@ -1249,11 +1260,14 @@ containing MODULE-FILES and possibly other files as well." (define* (guix-derivation source version #:optional (guile-version (effective-version)) - #:key (pull-version 0)) + #:key (pull-version 0) + channel-metadata) "Return, as a monadic value, the derivation to build the Guix from SOURCE -for GUILE-VERSION. Use VERSION as the version string. PULL-VERSION specifies -the version of the 'guix pull' protocol. Return #f if this PULL-VERSION value -is not supported." +for GUILE-VERSION. Use VERSION as the version string. Use CHANNEL-METADATA +as the channel metadata sexp to include in (guix config). + +PULL-VERSION specifies the version of the 'guix pull' protocol. Return #f if +this PULL-VERSION value is not supported." (define (shorten version) (if (and (string-every char-set:hex-digit version) (> (string-length version) 9)) @@ -1278,6 +1292,7 @@ is not supported." (set-guile-for-build guile) (let ((guix (compiled-guix source #:version version + #:channel-metadata channel-metadata #:name (string-append "guix-" (shorten version)) #:pull-version pull-version -- 2.30.0 From unknown Fri Jun 20 07:28:54 2025 X-Loop: help-debbugs@gnu.org Subject: bug#45896: [PATCH 3/3] gnu: guix: Pass the '--with-channel-commit' configure flag. Resent-From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Original-Sender: "Debbugs-submit" Resent-CC: bug-guix@gnu.org Resent-Date: Wed, 27 Jan 2021 21:52:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 45896 X-GNU-PR-Package: guix X-GNU-PR-Keywords: To: 45896@debbugs.gnu.org Cc: Ludovic =?UTF-8?Q?Court=C3=A8s?= Received: via spool by 45896-submit@debbugs.gnu.org id=B45896.161178430816767 (code B ref 45896); Wed, 27 Jan 2021 21:52:02 +0000 Received: (at 45896) by debbugs.gnu.org; 27 Jan 2021 21:51:48 +0000 Received: from localhost ([127.0.0.1]:46293 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l4sj6-0004MH-8m for submit@debbugs.gnu.org; Wed, 27 Jan 2021 16:51:48 -0500 Received: from eggs.gnu.org ([209.51.188.92]:58142) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l4sj2-0004Lp-L3 for 45896@debbugs.gnu.org; Wed, 27 Jan 2021 16:51:45 -0500 Received: from fencepost.gnu.org ([2001:470:142:3::e]:56313) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1l4six-0004A9-Dg; Wed, 27 Jan 2021 16:51:39 -0500 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=51252 helo=gnu.org) by fencepost.gnu.org with esmtpsa (TLS1.2:DHE_RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1l4siw-0006IH-0K; Wed, 27 Jan 2021 16:51:38 -0500 From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Date: Wed, 27 Jan 2021 22:51:30 +0100 Message-Id: <20210127215130.24530-3-ludo@gnu.org> X-Mailer: git-send-email 2.30.0 In-Reply-To: <20210127215130.24530-1-ludo@gnu.org> References: <874kjixf59.fsf@inria.fr> <20210127215130.24530-1-ludo@gnu.org> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Spam-Score: -2.3 (--) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) * gnu/packages/package-management.scm (guix)[arguments]: Add '--with-channel-commit' to #:configure-flags. --- gnu/packages/package-management.scm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm index 60d8d4b8c6..dfb4b868ee 100644 --- a/gnu/packages/package-management.scm +++ b/gnu/packages/package-management.scm @@ -154,6 +154,13 @@ (build-system gnu-build-system) (arguments `(#:configure-flags (list + + ;; Provide channel metadata for 'guix describe'. + ;; Don't pass '--with-channel-url' and + ;; '--with-channel-introduction' and instead use + ;; the defaults. + ,(string-append "--with-channel-commit=" commit) + "--localstatedir=/var" "--sysconfdir=/etc" (string-append "--with-bash-completion-dir=" -- 2.30.0 From unknown Fri Jun 20 07:28:54 2025 X-Loop: help-debbugs@gnu.org Subject: bug#45896: [PATCH 2/3] build: Add '--with-channel-commit' and related configure flags. Resent-From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Original-Sender: "Debbugs-submit" Resent-CC: bug-guix@gnu.org Resent-Date: Wed, 27 Jan 2021 21:52:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 45896 X-GNU-PR-Package: guix X-GNU-PR-Keywords: To: 45896@debbugs.gnu.org Cc: Ludovic =?UTF-8?Q?Court=C3=A8s?= Received: via spool by 45896-submit@debbugs.gnu.org id=B45896.161178431716784 (code B ref 45896); Wed, 27 Jan 2021 21:52:02 +0000 Received: (at 45896) by debbugs.gnu.org; 27 Jan 2021 21:51:57 +0000 Received: from localhost ([127.0.0.1]:46295 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l4sjE-0004Me-Lz for submit@debbugs.gnu.org; Wed, 27 Jan 2021 16:51:57 -0500 Received: from eggs.gnu.org ([209.51.188.92]:58136) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l4sj1-0004Ln-8g for 45896@debbugs.gnu.org; Wed, 27 Jan 2021 16:51:46 -0500 Received: from fencepost.gnu.org ([2001:470:142:3::e]:56312) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1l4siv-00049i-Mk; Wed, 27 Jan 2021 16:51:37 -0500 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=51252 helo=gnu.org) by fencepost.gnu.org with esmtpsa (TLS1.2:DHE_RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1l4siu-0006IH-Un; Wed, 27 Jan 2021 16:51:37 -0500 From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Date: Wed, 27 Jan 2021 22:51:29 +0100 Message-Id: <20210127215130.24530-2-ludo@gnu.org> X-Mailer: git-send-email 2.30.0 In-Reply-To: <20210127215130.24530-1-ludo@gnu.org> References: <874kjixf59.fsf@inria.fr> <20210127215130.24530-1-ludo@gnu.org> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-Spam-Score: -2.3 (--) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) Partially fixes . * m4/guix.m4 (GUIX_CHANNEL_METADATA): New macro. * configure.ac: Use it. * guix/config.scm.in (%channel-metadata): Adjust accordingly. --- configure.ac | 1 + guix/config.scm.in | 20 +++++++++++++++++--- m4/guix.m4 | 30 +++++++++++++++++++++++++++++- 3 files changed, 47 insertions(+), 4 deletions(-) diff --git a/configure.ac b/configure.ac index aa97f67ebe..aa60471143 100644 --- a/configure.ac +++ b/configure.ac @@ -25,6 +25,7 @@ AM_GNU_GETTEXT_VERSION([0.18.1]) GUIX_SYSTEM_TYPE GUIX_ASSERT_SUPPORTED_SYSTEM +GUIX_CHANNEL_METADATA AM_CONDITIONAL([CROSS_COMPILING], [test "x$cross_compiling" = "xyes"]) diff --git a/guix/config.scm.in b/guix/config.scm.in index 223c9eb418..d582d91d74 100644 --- a/guix/config.scm.in +++ b/guix/config.scm.in @@ -61,9 +61,23 @@ (define %channel-metadata ;; When true, this is an sexp containing metadata for the 'guix' channel ;; this file was built from. This is used by (guix describe). - - ;; TODO: Implement 'configure.ac' machinery to initialize it. - #f) + (let ((url @GUIX_CHANNEL_URL@) + (commit @GUIX_CHANNEL_COMMIT@) + (intro @GUIX_CHANNEL_INTRODUCTION@)) + (and url commit + `(repository + (version 0) + (url ,url) + (branch "master") ;XXX: doesn't really matter + (commit ,commit) + (name guix) + ,@(if intro + `((introduction + (channel-introduction + (version 0) + (commit ,(car intro)) + (signer ,(cdr intro))))) + '()))))) (define %storedir "@storedir@") diff --git a/m4/guix.m4 b/m4/guix.m4 index f8eb5aaf51..c1ce0876fa 100644 --- a/m4/guix.m4 +++ b/m4/guix.m4 @@ -1,5 +1,5 @@ dnl GNU Guix --- Functional package management for GNU -dnl Copyright © 2012, 2013, 2014, 2015, 2016, 2018, 2019, 2020 Ludovic Courtès +dnl Copyright © 2012, 2013, 2014, 2015, 2016, 2018, 2019, 2020, 2021 Ludovic Courtès dnl Copyright © 2014 Mark H Weaver dnl Copyright © 2017 Efraim Flashner dnl @@ -398,3 +398,31 @@ that of the existing installation '$guix_cv_current_localstatedir']) esac fi fi]) + +dnl GUIX_CHANNEL_METADATA +dnl +dnl Provide the channel metadata for this build. This allows 'guix describe' +dnl to return meaningful data, as it would for a 'guix pull'-provided 'guix'. +dnl The default URL and introduction are taken from (guix channels). +AC_DEFUN([GUIX_CHANNEL_METADATA], [ + AC_ARG_WITH([channel-url], [AS_HELP_STRING([--with-channel-url=URL], + [assert that this is built from the Git repository at URL])], + [guix_channel_url="\"$withval\""], + [guix_channel_url="\"https://git.savannah.gnu.org/git/guix.git\""]) + AC_ARG_WITH([channel-commit], [AS_HELP_STRING([--with-channel-commit=COMMIT], + [assert that this is built from COMMIT])], + [guix_channel_commit="\"$withval\""], + [guix_channel_commit="#f"]) + AC_ARG_WITH([channel-introduction], [AS_HELP_STRING([--with-channel-introduction=COMMIT:FINGERPRINT], + [specify COMMIT and FINGERPRINT as the introduction of this channel])], + [guix_channel_introduction="'(\"`echo $withval | cut -f1 -d:`\" \"`echo $withval | cut -f2 -d:`\")"], + [guix_channel_introduction="'(\"9edb3f66fd807b096b48283debdcddccfea34bad\" . \"BBB0 2DDF 2CEA F6A8 0D1D E643 A2A0 6DF2 A33A 54FA\")"]) + + GUIX_CHANNEL_URL="$guix_channel_url" + GUIX_CHANNEL_COMMIT="$guix_channel_commit" + GUIX_CHANNEL_INTRODUCTION="$guix_channel_introduction" + + AC_SUBST([GUIX_CHANNEL_URL]) + AC_SUBST([GUIX_CHANNEL_COMMIT]) + AC_SUBST([GUIX_CHANNEL_INTRODUCTION]) +]) -- 2.30.0 From unknown Fri Jun 20 07:28:54 2025 X-Loop: help-debbugs@gnu.org Subject: bug#45896: Non-pull =?UTF-8?Q?=E2=80=98guix=E2=80=99?= should know its channels Resent-From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Original-Sender: "Debbugs-submit" Resent-CC: bug-guix@gnu.org Resent-Date: Wed, 27 Jan 2021 21:54:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 45896 X-GNU-PR-Package: guix X-GNU-PR-Keywords: To: 45896@debbugs.gnu.org Received: via spool by 45896-submit@debbugs.gnu.org id=B45896.161178439416934 (code B ref 45896); Wed, 27 Jan 2021 21:54:02 +0000 Received: (at 45896) by debbugs.gnu.org; 27 Jan 2021 21:53:14 +0000 Received: from localhost ([127.0.0.1]:46301 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l4skU-0004P3-9X for submit@debbugs.gnu.org; Wed, 27 Jan 2021 16:53:14 -0500 Received: from eggs.gnu.org ([209.51.188.92]:58772) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l4skS-0004Oq-1F for 45896@debbugs.gnu.org; Wed, 27 Jan 2021 16:53:12 -0500 Received: from fencepost.gnu.org ([2001:470:142:3::e]:56343) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1l4skM-0004KJ-Q8 for 45896@debbugs.gnu.org; Wed, 27 Jan 2021 16:53:06 -0500 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=51256 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1l4skM-0006O0-5I for 45896@debbugs.gnu.org; Wed, 27 Jan 2021 16:53:06 -0500 From: Ludovic =?UTF-8?Q?Court=C3=A8s?= References: <874kjixf59.fsf@inria.fr> <87v9bjzvli.fsf@gnu.org> Date: Wed, 27 Jan 2021 22:53:05 +0100 In-Reply-To: <87v9bjzvli.fsf@gnu.org> ("Ludovic =?UTF-8?Q?Court=C3=A8s?="'s message of "Tue, 26 Jan 2021 14:16:57 +0100") Message-ID: <87sg6mujwe.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: -2.3 (--) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) Ludovic Court=C3=A8s skribis: > This problem extends beyond that: channel modules are not found if the > symlink is dereferenced: In fact, this is =E2=80=9Cby design=E2=80=9D, so nothing particularly worry= ing, after all. Ludo=E2=80=99. From unknown Fri Jun 20 07:28:54 2025 X-Loop: help-debbugs@gnu.org Subject: bug#45896: Non-pull =?UTF-8?Q?=E2=80=98guix=E2=80=99?= should know its channels Resent-From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Original-Sender: "Debbugs-submit" Resent-CC: bug-guix@gnu.org Resent-Date: Wed, 27 Jan 2021 21:54:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 45896 X-GNU-PR-Package: guix X-GNU-PR-Keywords: To: 45896@debbugs.gnu.org Received: via spool by 45896-submit@debbugs.gnu.org id=B45896.161178443516992 (code B ref 45896); Wed, 27 Jan 2021 21:54:02 +0000 Received: (at 45896) by debbugs.gnu.org; 27 Jan 2021 21:53:55 +0000 Received: from localhost ([127.0.0.1]:46304 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l4sl9-0004Pz-J4 for submit@debbugs.gnu.org; Wed, 27 Jan 2021 16:53:55 -0500 Received: from eggs.gnu.org ([209.51.188.92]:58898) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l4sl8-0004Pn-IY for 45896@debbugs.gnu.org; Wed, 27 Jan 2021 16:53:54 -0500 Received: from fencepost.gnu.org ([2001:470:142:3::e]:56351) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1l4sl3-0004NR-Bl for 45896@debbugs.gnu.org; Wed, 27 Jan 2021 16:53:49 -0500 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=51260 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1l4sl2-0006QH-Su for 45896@debbugs.gnu.org; Wed, 27 Jan 2021 16:53:49 -0500 From: Ludovic =?UTF-8?Q?Court=C3=A8s?= References: <874kjixf59.fsf@inria.fr> <20210127215130.24530-1-ludo@gnu.org> Date: Wed, 27 Jan 2021 22:53:47 +0100 In-Reply-To: <20210127215130.24530-1-ludo@gnu.org> ("Ludovic =?UTF-8?Q?Court=C3=A8s?="'s message of "Wed, 27 Jan 2021 22:51:28 +0100") Message-ID: <87o8haujv8.fsf_-_@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: -2.3 (--) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) These patches depend on . From debbugs-submit-bounces@debbugs.gnu.org Wed Jan 27 16:54:07 2021 Received: (at control) by debbugs.gnu.org; 27 Jan 2021 21:54:07 +0000 Received: from localhost ([127.0.0.1]:46309 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l4slK-0004Qu-QP for submit@debbugs.gnu.org; Wed, 27 Jan 2021 16:54:07 -0500 Received: from eggs.gnu.org ([209.51.188.92]:58916) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l4slJ-0004QE-Sw for control@debbugs.gnu.org; Wed, 27 Jan 2021 16:54:06 -0500 Received: from fencepost.gnu.org ([2001:470:142:3::e]:56354) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1l4slE-0004Nq-Lr for control@debbugs.gnu.org; Wed, 27 Jan 2021 16:54:00 -0500 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=51264 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1l4slE-0006QP-9G for control@debbugs.gnu.org; Wed, 27 Jan 2021 16:54:00 -0500 Date: Wed, 27 Jan 2021 22:53:59 +0100 Message-Id: <87mtwuujuw.fsf@gnu.org> To: control@debbugs.gnu.org From: =?utf-8?Q?Ludovic_Court=C3=A8s?= Subject: control message for bug #45896 MIME-version: 1.0 Content-type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) tags 45896 + patch quit From debbugs-submit-bounces@debbugs.gnu.org Wed Jan 27 16:54:29 2021 Received: (at control) by debbugs.gnu.org; 27 Jan 2021 21:54:29 +0000 Received: from localhost ([127.0.0.1]:46312 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l4slh-0004RS-3s for submit@debbugs.gnu.org; Wed, 27 Jan 2021 16:54:29 -0500 Received: from eggs.gnu.org ([209.51.188.92]:58978) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l4slf-0004RG-Qg for control@debbugs.gnu.org; Wed, 27 Jan 2021 16:54:28 -0500 Received: from fencepost.gnu.org ([2001:470:142:3::e]:56358) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1l4sla-0004PM-7J for control@debbugs.gnu.org; Wed, 27 Jan 2021 16:54:22 -0500 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=51266 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1l4slZ-0006So-Qg for control@debbugs.gnu.org; Wed, 27 Jan 2021 16:54:22 -0500 Date: Wed, 27 Jan 2021 22:54:20 +0100 Message-Id: <87lfceujub.fsf@gnu.org> To: control@debbugs.gnu.org From: =?utf-8?Q?Ludovic_Court=C3=A8s?= Subject: control message for bug #45896 MIME-version: 1.0 Content-type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) block 45896 by 45919 quit From unknown Fri Jun 20 07:28:54 2025 MIME-Version: 1.0 X-Mailer: MIME-tools 5.505 (Entity 5.505) X-Loop: help-debbugs@gnu.org From: help-debbugs@gnu.org (GNU bug Tracking System) To: Ludovic =?UTF-8?Q?Court=C3=A8s?= Subject: bug#45896: closed (Re: bug#45896: Non-pull =?UTF-8?Q?=E2=80=98guix=E2=80=99?= should know its channels) Message-ID: References: <874kis80gm.fsf_-_@gnu.org> <874kjixf59.fsf@inria.fr> X-Gnu-PR-Message: they-closed 45896 X-Gnu-PR-Package: guix X-Gnu-PR-Keywords: patch Reply-To: 45896@debbugs.gnu.org Date: Thu, 04 Feb 2021 12:47:01 +0000 Content-Type: multipart/mixed; boundary="----------=_1612442821-18298-1" This is a multi-part message in MIME format... ------------=_1612442821-18298-1 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset="utf-8" Your bug report #45896: Non-pull =E2=80=98guix=E2=80=99 should know its channels which was filed against the guix package, has been closed. The explanation is attached below, along with your original report. If you require more details, please reply to 45896@debbugs.gnu.org. --=20 45896: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D45896 GNU Bug Tracking System Contact help-debbugs@gnu.org with problems ------------=_1612442821-18298-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at 45896-done) by debbugs.gnu.org; 4 Feb 2021 12:46:46 +0000 Received: from localhost ([127.0.0.1]:40159 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l7e22-0004kh-DK for submit@debbugs.gnu.org; Thu, 04 Feb 2021 07:46:46 -0500 Received: from eggs.gnu.org ([209.51.188.92]:42850) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l7e20-0004kS-KJ for 45896-done@debbugs.gnu.org; Thu, 04 Feb 2021 07:46:45 -0500 Received: from fencepost.gnu.org ([2001:470:142:3::e]:36419) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1l7e1r-0000MC-Pn for 45896-done@debbugs.gnu.org; Thu, 04 Feb 2021 07:46:39 -0500 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=54928 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1l7e1q-0002NC-FW for 45896-done@debbugs.gnu.org; Thu, 04 Feb 2021 07:46:34 -0500 From: =?utf-8?Q?Ludovic_Court=C3=A8s?= To: 45896-done@debbugs.gnu.org Subject: Re: bug#45896: Non-pull =?utf-8?B?4oCYZ3VpeOKAmQ==?= should know its channels References: <874kjixf59.fsf@inria.fr> <20210127215130.24530-1-ludo@gnu.org> <20210127215130.24530-3-ludo@gnu.org> Date: Thu, 04 Feb 2021 13:46:33 +0100 In-Reply-To: <20210127215130.24530-3-ludo@gnu.org> ("Ludovic =?utf-8?Q?Cou?= =?utf-8?Q?rt=C3=A8s=22's?= message of "Wed, 27 Jan 2021 22:51:30 +0100") Message-ID: <874kis80gm.fsf_-_@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: -0.7 (/) X-Debbugs-Envelope-To: 45896-done X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.7 (-) Patches pushed as 8ecc265c5c6519986758567682726647850d5d03. Ludo=E2=80=99. ------------=_1612442821-18298-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at submit) by debbugs.gnu.org; 15 Jan 2021 17:51:35 +0000 Received: from localhost ([127.0.0.1]:41660 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l0TFo-00087B-RS for submit@debbugs.gnu.org; Fri, 15 Jan 2021 12:51:34 -0500 Received: from lists.gnu.org ([209.51.188.17]:59452) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1l0TFm-000872-Ry for submit@debbugs.gnu.org; Fri, 15 Jan 2021 12:51:19 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]:46644) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1l0TFm-00041t-A3 for bug-guix@gnu.org; Fri, 15 Jan 2021 12:51:18 -0500 Received: from fencepost.gnu.org ([2001:470:142:3::e]:34736) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1l0TFk-0004T7-N5 for bug-guix@gnu.org; Fri, 15 Jan 2021 12:51:18 -0500 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=43288 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1l0TFk-00050l-1D for bug-guix@gnu.org; Fri, 15 Jan 2021 12:51:16 -0500 From: =?utf-8?Q?Ludovic_Court=C3=A8s?= To: Subject: Non-pull =?utf-8?B?4oCYZ3VpeOKAmQ==?= should know its channels X-URL: http://www.fdn.fr/~lcourtes/ X-Revolutionary-Date: 26 =?utf-8?Q?Niv=C3=B4se?= an 229 de la =?utf-8?Q?R?= =?utf-8?Q?=C3=A9volution?= X-PGP-Key-ID: 0x090B11993D9AEBB5 X-PGP-Key: http://www.fdn.fr/~lcourtes/ludovic.asc X-PGP-Fingerprint: 3CE4 6455 8A84 FDC6 9DB4 0CFB 090B 1199 3D9A EBB5 X-OS: x86_64-pc-linux-gnu Date: Fri, 15 Jan 2021 18:51:14 +0100 Message-ID: <874kjixf59.fsf@inria.fr> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) Related to , we have the problem that the =E2=80=98guix=E2=80=99 command coming from the =E2=80=98guix=E2=80=99 p= ackage doesn=E2=80=99t know its provenance: =E2=80=98guix describe=E2=80=99 errors out. We should fix it by storing a meta-data file within the =E2=80=98guix=E2=80= =99 package. Likewise, on foreign distros, /usr/local/bin/guix may point to a =E2=80=98g= uix pull=E2=80=99-guix, but because of the symlink, =E2=80=98guix describe=E2= =80=99 won=E2=80=99t work: --8<---------------cut here---------------start------------->8--- $ type -P guix /home/ludo/.config/guix/current/bin/guix $ guix describe Generacio 171 Jan 11 2021 11:38:39 (nuna) guix 458cb25 repository URL: https://git.savannah.gnu.org/git/guix.git branch: master commit: 458cb25b9e7e7c954f468023abea2bebb5d8c75b $ ln -s $(type -P guix) /tmp $ /tmp/guix describe guix describe: error: failed to determine origin hint: Perhaps this `guix' command was not obtained with `guix pull'? Its version string is 458cb25b9e7e7c954f468023abea2bebb5d8c75b. --8<---------------cut here---------------end--------------->8--- We should probably store proper provenance info directly in the =E2=80=98gu= ix=E2=80=99 output, just like we store the commit ID in (guix config). Ludo=E2=80=99. ------------=_1612442821-18298-1--