reconfigure: Use let* from srfi-71.
* guix/scripts/system/reconfigure.scm (upgrade-shepherd-services): Merge 'let' + 'let*' in just 'let*'. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
067c37e149
commit
9be28375cf
|
@ -186,9 +186,9 @@ services as defined by OS."
|
|||
#:target-type shepherd-root-service-type))))
|
||||
|
||||
(mlet* %store-monad ((live-services (running-services eval)))
|
||||
(let ((to-unload to-restart
|
||||
(shepherd-service-upgrade live-services target-services)))
|
||||
(let* ((to-unload (map live-service-canonical-name to-unload))
|
||||
(let* ((to-unload to-restart
|
||||
(shepherd-service-upgrade live-services target-services))
|
||||
(to-unload (map live-service-canonical-name to-unload))
|
||||
(to-restart (map shepherd-service-canonical-name to-restart))
|
||||
(running (map live-service-canonical-name
|
||||
(filter live-service-running live-services)))
|
||||
|
@ -201,7 +201,7 @@ services as defined by OS."
|
|||
(primitive-load #$(upgrade-services-program service-files
|
||||
to-start
|
||||
to-unload
|
||||
to-restart))))))))
|
||||
to-restart)))))))
|
||||
|
||||
|
||||
;;;
|
||||
|
|
Loading…
Reference in New Issue