1
0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00

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 <maxim.cournoyer@gmail.com>
Change-Id: I5254d82ce547e8014027ed20675b8bfe5a5847c5
This commit is contained in:
Ludovic Courtès
2024-12-19 16:22:45 +01:00
parent 5c9029dc79
commit ebe706a1e8

View File

@@ -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)))