Browse Source

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

* gnu/system.scm (operating-system-root-file-system): Raise when 'find'
returns #f.
wip-haskell-updates-2
Ludovic Courtès 1 year ago
parent
commit
d7e9e0bbc9
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
  1. 10
      gnu/system.scm

10
gnu/system.scm

@ -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."

Loading…
Cancel
Save