summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorNicolas Graves <ngraves@ngraves.fr>2023-08-09 11:28:34 +0200
committerLudovic Courtès <ludo@gnu.org>2023-08-12 23:07:40 +0200
commit9be28375cf6d900e075b470412d629ddbd8710c0 (patch)
tree8bdce569cbafc01ffc8843942e3b616c32866b3f /guix
parent067c37e1497589a71e97d87beb9261e9e46d9c0f (diff)
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>
Diffstat (limited to 'guix')
-rw-r--r--guix/scripts/system/reconfigure.scm32
1 files changed, 16 insertions, 16 deletions
diff --git a/guix/scripts/system/reconfigure.scm b/guix/scripts/system/reconfigure.scm
index 9948df0ca6..ff6242ffb4 100644
--- a/guix/scripts/system/reconfigure.scm
+++ b/guix/scripts/system/reconfigure.scm
@@ -186,22 +186,22 @@ 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))
- (to-restart (map shepherd-service-canonical-name to-restart))
- (running (map live-service-canonical-name
- (filter live-service-running live-services)))
- (to-start (lset-difference eqv?
- (map shepherd-service-canonical-name
- target-services)
- running))
- (service-files (map shepherd-service-file target-services)))
- (eval #~(parameterize ((current-warning-port (%make-void-port "w")))
- (primitive-load #$(upgrade-services-program service-files
- to-start
- to-unload
- to-restart))))))))
+ (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)))
+ (to-start (lset-difference eqv?
+ (map shepherd-service-canonical-name
+ target-services)
+ running))
+ (service-files (map shepherd-service-file target-services)))
+ (eval #~(parameterize ((current-warning-port (%make-void-port "w")))
+ (primitive-load #$(upgrade-services-program service-files
+ to-start
+ to-unload
+ to-restart)))))))
;;;