mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 06:46:50 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix system: When installing the Hurd, create essential devices.

Browse source 
* guix/scripts/system.scm (install): When installing the Hurd, invoke
`make-hurd-device-nodes'.

Change-Id: If84d5fe0b5bf4a93452f0b5241650f325d583543
This commit is contained in:
Janneke Nieuwenhuizen 2024-10-24 20:57:46 +02:00 committed by Jan (janneke) Nieuwenhuizen
parent 4f94f07b1f
commit 046d6d9f8e
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
guix/scripts/system.scm
View file

@ -5,7 +5,7 @@
;;; Copyright © 2017, 2019 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2017, 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2019 Christopher Baines <mail@cbaines.net> ;;; Copyright © 2019 Christopher Baines <mail@cbaines.net>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020, 2024 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020 Julien Lepiller <julien@lepiller.eu> ;;; Copyright © 2020 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re> ;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re>
@ -63,6 +63,7 @@ (define-module (guix scripts system)
#:autoload (guix progress) (progress-reporter/bar #:autoload (guix progress) (progress-reporter/bar
call-with-progress-reporter) call-with-progress-reporter)
#:use-module ((guix docker) #:select (%docker-image-max-layers)) #:use-module ((guix docker) #:select (%docker-image-max-layers))
#:use-module (gnu build hurd-boot)
#:use-module (gnu build image) #:use-module (gnu build image)
#:use-module (gnu build install) #:use-module (gnu build install)
#:autoload (gnu build file-systems) #:autoload (gnu build file-systems)
@ -243,6 +244,9 @@ (define (maybe-copy to-copy)
(delete-file-recursively state))) (delete-file-recursively state)))
(chmod target #o755) (chmod target #o755)
;; For the Hurd to boot, it needs some essential device nodes.
(when (target-hurd?)
(make-hurd-device-nodes target))
(let ((os-dir (derivation->output-path os-drv)) (let ((os-dir (derivation->output-path os-drv))
(format (lift format %store-monad)) (format (lift format %store-monad))
(populate (lift2 populate-root-file-system %store-monad))) (populate (lift2 populate-root-file-system %store-monad)))