civodul pushed a commit to branch master
in repository guix.
commit ebe706a1e820c52b9b067055cef1bc72abe1bc40
Author: Ludovic Courtès <[email protected]>
AuthorDate: Thu Dec 19 16:22:45 2024 +0100
system: Export ‘…-initrd-file’ and ‘…-root-file-system’.
* gnu/system.scm (operating-system-initrd-file): Fix docstring and
export.
(operating-system-root-file-system): Export.
Reviewed-by: Maxim Cournoyer <[email protected]>
Change-Id: I5254d82ce547e8014027ed20675b8bfe5a5847c5
---
gnu/system.scm | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/gnu/system.scm b/gnu/system.scm
index dfcb8fb279..252a26cac3 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -110,6 +110,7 @@
operating-system-default-label
operating-system-initrd-modules
operating-system-initrd
+ operating-system-initrd-file
operating-system-users
operating-system-groups
operating-system-issue
@@ -119,6 +120,7 @@
operating-system-locale-libcs
operating-system-mapped-devices
operating-system-file-systems
+ operating-system-root-file-system
operating-system-store-file-system
operating-system-user-mapped-devices
operating-system-boot-mapped-devices
@@ -1355,7 +1357,7 @@ we're running in the final root."
(location (operating-system-location os)))))))
(define (operating-system-initrd-file os)
- "Return a gexp denoting the initrd file of OS."
+ "Return a file-like object for the initrd file of OS."
(define boot-file-systems
(filter file-system-needed-for-boot?
(operating-system-file-systems os)))
