ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-23 19:19:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

linux-boot: Error out when 'pre-mount' returns #f.

Browse source 
* gnu/build/linux-boot.scm (boot-system): Call 'error' when PRE-MOUNT
  returns #f.
This commit is contained in:
Ludovic Courtès 2014-11-26 11:54:21 +01:00
parent 2d2a2bacc0
commit 76bacc8264
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gnu/build/linux-boot.scm
View file

@ -400,8 +400,9 @@ (define root-fs-type
(when (procedure? pre-mount)
;; Do whatever actions are needed before mounting--e.g., installing
;; device mappings.
(pre-mount))
;; device mappings. Error out when the return value is false.
(unless (pre-mount)
(error "pre-mount actions failed")))
;; Mount the specified file systems.
(for-each mount-file-system