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

system: Export ‘…-initrd-file’ and ‘…-root-file-system’.

Browse source 
* 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
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gnu/system.scm
View file

@ -110,6 +110,7 @@ (define-module (gnu system)
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 @@ (define-module (gnu system)
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 @@ (define (operating-system-root-file-system os)
(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)))