summaryrefslogtreecommitdiff
path: root/gnu/installer/final.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/installer/final.scm')
-rw-r--r--gnu/installer/final.scm9
1 files changed, 7 insertions, 2 deletions
diff --git a/gnu/installer/final.scm b/gnu/installer/final.scm
index 069426a3b8d..64c054cd86c 100644
--- a/gnu/installer/final.scm
+++ b/gnu/installer/final.scm
@@ -1,6 +1,7 @@
1;;; GNU Guix --- Functional package management for GNU 1;;; GNU Guix --- Functional package management for GNU
2;;; Copyright © 2018, 2020 Mathieu Othacehe <m.othacehe@gmail.com> 2;;; Copyright © 2018, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
3;;; Copyright © 2019, 2020, 2022 Ludovic Courtès <ludo@gnu.org> 3;;; Copyright © 2019, 2020, 2022 Ludovic Courtès <ludo@gnu.org>
4;;; Copyright © 2024 Janneke Nieuwenhuizen <janneke@gnu.org>
4;;; 5;;;
5;;; This file is part of GNU Guix. 6;;; This file is part of GNU Guix.
6;;; 7;;;
@@ -25,6 +26,7 @@
25 #:use-module (gnu services herd) 26 #:use-module (gnu services herd)
26 #:use-module (guix build syscalls) 27 #:use-module (guix build syscalls)
27 #:use-module (guix build utils) 28 #:use-module (guix build utils)
29 #:use-module (guix utils)
28 #:use-module (gnu build accounts) 30 #:use-module (gnu build accounts)
29 #:use-module (gnu build install) 31 #:use-module (gnu build install)
30 #:use-module (gnu build linux-container) 32 #:use-module (gnu build linux-container)
@@ -164,8 +166,11 @@ or #f. Return #t on success and #f on failure."
164 "/tmp/installer-system-init-options" 166 "/tmp/installer-system-init-options"
165 read)) 167 read))
166 (const '()))) 168 (const '())))
167 (install-command (append (list "guix" "system" "init" 169 (install-command (append `( "guix" "system" "init"
168 "--fallback") 170 "--fallback"
171 ,@(if (target-hurd?)
172 '("--target=i586-pc-gnu")
173 '()))
169 options 174 options
170 (list (%installer-configuration-file) 175 (list (%installer-configuration-file)
171 (%installer-target-dir)))) 176 (%installer-target-dir))))