futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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 @@ we're running in the final root."
(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."