ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

system: 'operating-system-root-file-system' raises upon missing root.

Browse source 
* gnu/system.scm (operating-system-root-file-system): Raise when 'find'
returns #f.
This commit is contained in:
Ludovic Courtès 2020-07-15 01:32:25 +02:00
parent 9e12da319b
commit d7e9e0bbc9
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gnu/system.scm
View file

@ -1032,9 +1032,13 @@ (define* (operating-system-profile os)
(define (operating-system-root-file-system os)
"Return the root file system of OS."
(find (lambda (fs)
(string=? "/" (file-system-mount-point fs)))
(operating-system-file-systems os)))
(or (find (lambda (fs)
(string=? "/" (file-system-mount-point fs)))
(operating-system-file-systems os))
(raise (condition
(&message (message "missing root file system"))
(&error-location
(location (operating-system-location os)))))))
(define (operating-system-initrd-file os)
"Return a gexp denoting the initrd file of OS."