guix system: Fix the Shepherd error handling fix.
This is a followup to aa1e73a996
.
* guix/scripts/system.scm (with-shepherd-error-handling): Return two
values when an exception is caught.
This commit is contained in:
parent
35c4aec88d
commit
9d1e56b76d
@ -242,7 +242,7 @@ expression in %STORE-MONAD."
|
|||||||
(lambda (store)
|
(lambda (store)
|
||||||
(warn-on-system-error
|
(warn-on-system-error
|
||||||
(guard (c ((shepherd-error? c)
|
(guard (c ((shepherd-error? c)
|
||||||
(report-shepherd-error c)))
|
(values (report-shepherd-error c) store)))
|
||||||
(values (run-with-store store (begin mbody ...))
|
(values (run-with-store store (begin mbody ...))
|
||||||
store)))))
|
store)))))
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user