GNU bug report logs - #73927
[PATCH 00/16] Installer support for (cross) installing the Hurd.

Previous Next

Full log

Message #83 received at 73927 <at> debbugs.gnu.org (full text, mbox):

From: Janneke Nieuwenhuizen <janneke <at> gnu.org>
To: 73927 <at> debbugs.gnu.org
Subject: [PATCH v3 02/17] guix system: When installing the Hurd,
 create essential devices.
Date: Fri, 25 Oct 2024 11:39:54 +0200

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

Change-Id: If84d5fe0b5bf4a93452f0b5241650f325d583543
---
 guix/scripts/system.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 99c58f3812..7989b183ad 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -5,7 +5,7 @@
 ;;; Copyright © 2017, 2019 Mathieu Othacehe <m.othacehe <at> gmail.com>
 ;;; Copyright © 2018 Ricardo Wurmus <rekado <at> elephly.net>
 ;;; Copyright © 2019 Christopher Baines <mail <at> cbaines.net>
-;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke <at> gnu.org>
+;;; Copyright © 2020, 2024 Janneke Nieuwenhuizen <janneke <at> gnu.org>
 ;;; Copyright © 2020 Julien Lepiller <julien <at> lepiller.eu>
 ;;; Copyright © 2020 Efraim Flashner <efraim <at> flashner.co.il>
 ;;; Copyright © 2021 Brice Waegeneire <brice <at> waegenei.re>
@@ -63,6 +63,7 @@ (define-module (guix scripts system)
   #:autoload   (guix progress) (progress-reporter/bar
                                 call-with-progress-reporter)
   #:use-module ((guix docker) #:select (%docker-image-max-layers))
+  #:use-module (gnu build hurd-boot)
   #:use-module (gnu build image)
   #:use-module (gnu build install)
   #:autoload   (gnu build file-systems)
@@ -243,6 +244,9 @@ (define (maybe-copy to-copy)
       (delete-file-recursively state)))
 
   (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))
         (format   (lift format %store-monad))
         (populate (lift2 populate-root-file-system %store-monad)))
-- 
2.46.0

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.