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 <rutherther@ditigal.xyz>

1 files changed, 1 insertions, 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