services: file-system: Make sure fsck.* commands are in $PATH.
Fixes a regression introduced in
bf7ef1bb84
, whereby the fsck.* commands
would not be found.
* gnu/services/base.scm (file-system-shepherd-service): Call calls to
'setenv'.
This commit is contained in:
parent
a79fbd5d1d
commit
9328eafbf5
|
@ -269,10 +269,24 @@ FILE-SYSTEM."
|
|||
#$(if create?
|
||||
#~(mkdir-p #$target)
|
||||
#t)
|
||||
|
||||
(let (($PATH (getenv "PATH")))
|
||||
;; Make sure fsck.ext2 & co. can be found.
|
||||
(dynamic-wind
|
||||
(lambda ()
|
||||
(setenv "PATH"
|
||||
(string-append
|
||||
#$e2fsprogs "/sbin:"
|
||||
"/run/current-system/profile/sbin:"
|
||||
$PATH)))
|
||||
(lambda ()
|
||||
(mount-file-system
|
||||
`(#$device #$title #$target #$type #$flags #$options
|
||||
#$check?) #:root "/")
|
||||
#t))
|
||||
`(#$device #$title #$target #$type #$flags
|
||||
#$options #$check?)
|
||||
#:root "/"))
|
||||
(lambda ()
|
||||
(setenv "PATH" $PATH)))
|
||||
#t)))
|
||||
(stop #~(lambda args
|
||||
;; Normally there are no processes left at this point, so
|
||||
;; TARGET can be safely unmounted.
|
||||
|
|
Loading…
Reference in New Issue