[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: image: hurd: Initialize root partition for the Hurd.
From: |
guix-commits |
Subject: |
02/02: image: hurd: Initialize root partition for the Hurd. |
Date: |
Thu, 25 Jun 2020 16:52:27 -0400 (EDT) |
janneke pushed a commit to branch master
in repository guix.
commit 2463a78d17673581978debff6c6c9fce7966980a
Author: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Thu Jun 25 21:47:51 2020 +0200
image: hurd: Initialize root partition for the Hurd.
This is a follow-up to commit b904b59ce592c89dfb4675a8c06757afed6738a0.
* gnu/system/image.scm (hurd-initialize-root-partition): Move to ...
* gnu/system/images/hurd.scm (hurd-initialize-root-partition): ... here.
(hurd-disk-image): Use it.
---
gnu/system/image.scm | 7 -------
gnu/system/images/hurd.scm | 9 ++++++++-
2 files changed, 8 insertions(+), 8 deletions(-)
diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index bb73aea..a4cc2d1 100644
--- a/gnu/system/image.scm
+++ b/gnu/system/image.scm
@@ -96,13 +96,6 @@
(flags '(boot))
(initializer (gexp initialize-root-partition))))
-(define hurd-initialize-root-partition
- #~(lambda* (#:rest args)
- (apply initialize-root-partition
- (append args
- (list #:make-device-nodes
- make-hurd-device-nodes)))))
-
(define efi-disk-image
(image
(format 'disk-image)
diff --git a/gnu/system/images/hurd.scm b/gnu/system/images/hurd.scm
index e5e120d..31942e7 100644
--- a/gnu/system/images/hurd.scm
+++ b/gnu/system/images/hurd.scm
@@ -57,6 +57,13 @@
(password-authentication? #t)))
%base-services/hurd))))
+(define hurd-initialize-root-partition
+ #~(lambda* (#:rest args)
+ (apply initialize-root-partition
+ (append args
+ (list #:make-device-nodes
+ make-hurd-device-nodes)))))
+
(define hurd-disk-image
(image
(format 'disk-image)
@@ -69,7 +76,7 @@
(file-system "ext2")
(file-system-options '("-o" "hurd" "-O" "ext_attr"))
(flags '(boot))
- (initializer (gexp initialize-root-partition)))))))
+ (initializer hurd-initialize-root-partition))))))
(define hurd-barebones-disk-image
(image