diff options
Diffstat (limited to 'gnu/installer/final.scm')
| -rw-r--r-- | gnu/installer/final.scm | 9 |
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)))) |
