From e2857e21fa54ff72b4adabf95841d61fb820d55f Mon Sep 17 00:00:00 2001 From: Rutherther Date: Tue, 16 Dec 2025 12:24:42 +0100 Subject: [PATCH] system: install: Remove current-guix url override. Prefer parameterization of current-guix in release artifacts generation. * gnu/system/install.scm (%installation-service): Use (current-guix) directly in guix service configuration. Change-Id: Ifa363465e6a4f6936d0e51eaf1b33872519e2b0a Signed-off-by: Rutherther --- gnu/system/install.scm | 18 +----------------- 1 file changed, 1 insertion(+), 17 deletions(-) diff --git a/gnu/system/install.scm b/gnu/system/install.scm index 06fed8cae9a..e5dfdbb427b 100644 --- a/gnu/system/install.scm +++ b/gnu/system/install.scm @@ -336,29 +336,13 @@ templates under @file{/etc/configuration}."))) "Load the @code{uvesafb} kernel module with the right options.") (default-value #t))) -(define (guix-package-commit guix) - ;; Extract the commit of the GUIX package. - (match (package-source guix) - ((? channel? source) - (channel-commit source)) - (_ - (apply (lambda* (#:key commit #:allow-other-keys) commit) - (package-arguments guix))))) - (define* (%installation-services #:key (system (or (and=> (%current-target-system) platform-target->system) (%current-system))) - (guix-for-system - (let ((guix (current-guix))) - (package - (inherit guix) - ;; Do not leak the local checkout URL. - (source (channel - (inherit %default-guix-channel) - (commit (guix-package-commit guix)))))))) + (guix-for-system (current-guix))) ;; List of services of the installation system. (let ((motd (plain-file "motd" " \x1b[1;37mWelcome to the installation of GNU Guix!\x1b[0m