From 94c9e53fa4b45e85c1664a9bab6aea0d5c3ac123 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 5 May 2025 22:40:50 +0200 Subject: [PATCH] install: Do not leak local checkout URL. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Fixes . Previously ‘guix describe’ in the installation image would show the URL of the local checkout that was used to build the image. It now shows the default URL. * gnu/system/install.scm (%installation-services): Change channel of ‘guix’ package to inherit from ‘%default-guix-channel’. Change-Id: If848b5a6166904e982e0f9a0780f3e3f53bdfc28 --- gnu/system/install.scm | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/gnu/system/install.scm b/gnu/system/install.scm index 15ea401f1cb33e6687ef22e35d721498ba8e3b89..20960e62b3144f22f1a08e5cbc78b6ac40e09b55 100644 --- a/gnu/system/install.scm +++ b/gnu/system/install.scm @@ -35,6 +35,11 @@ #:use-module ((guix packages) #:select (package-version supported-package?)) #:use-module (guix platform) #:use-module (guix utils) + #:use-module (guix packages) + #:use-module ((guix channels) + #:select (%default-guix-channel + channel + channel-commit)) #:use-module (gnu installer) #:use-module (gnu system locale) #:use-module (gnu services avahi) @@ -392,7 +397,14 @@ Access documentation at any time by pressing Alt-F2.\x1b[0m ;; Install and run the current Guix rather than an older ;; snapshot. - (guix (current-guix)))) + (guix (let ((guix (current-guix))) + (package + (inherit guix) + ;; Do not leak the local checkout URL. + (source (channel + (inherit %default-guix-channel) + (commit (channel-commit + (package-source guix)))))))))) ;; Start udev so that useful device nodes are available. ;; Use device-mapper rules for cryptsetup & co; enable the CRDA for