me/guix
Archived
1
0
Fork 0
Code Activity

reconfigure: Use let* from srfi-71.

Browse source 
* 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:
Nicolas Graves 2023-08-09 11:28:34 +02:00 • committed by Ludovic Courtès
parent 067c37e149
commit 9be28375cf
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 16 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
guix/scripts/system/reconfigure.scm
View file

@ -186,22 +186,22 @@ services as defined by OS."
#:target-type shepherd-root-service-type)))) #:target-type shepherd-root-service-type))))
(mlet* %store-monad ((live-services (running-services eval))) (mlet* %store-monad ((live-services (running-services eval)))
(let ((to-unload to-restart (let* ((to-unload to-restart
(shepherd-service-upgrade live-services target-services))) (shepherd-service-upgrade live-services target-services))
(let* ((to-unload (map live-service-canonical-name to-unload)) (to-unload (map live-service-canonical-name to-unload))
(to-restart (map shepherd-service-canonical-name to-restart)) (to-restart (map shepherd-service-canonical-name to-restart))
(running (map live-service-canonical-name (running (map live-service-canonical-name
(filter live-service-running live-services))) (filter live-service-running live-services)))
(to-start (lset-difference eqv? (to-start (lset-difference eqv?
(map shepherd-service-canonical-name (map shepherd-service-canonical-name
target-services) target-services)
running)) running))
(service-files (map shepherd-service-file target-services))) (service-files (map shepherd-service-file target-services)))
(eval #~(parameterize ((current-warning-port (%make-void-port "w"))) (eval #~(parameterize ((current-warning-port (%make-void-port "w")))
(primitive-load #$(upgrade-services-program service-files (primitive-load #$(upgrade-services-program service-files
to-start to-start
to-unload to-unload
to-restart)))))))) to-restart)))))))
;;; ;;;