[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/04: guix system: Remove unused procedure.
From: |
guix-commits |
Subject: |
03/04: guix system: Remove unused procedure. |
Date: |
Fri, 3 Apr 2020 06:58:24 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit 4efbb079b5aac6a4eb53ef3f9a67a2849c3ebf1f
Author: Ludovic Courtès <address@hidden>
AuthorDate: Fri Apr 3 11:22:46 2020 +0200
guix system: Remove unused procedure.
This procedure was unused since
5c8c8c455420af27189d6045b3599fe6e27ad012.
* guix/scripts/system.scm (call-with-service-upgrade-info): Remove.
---
guix/scripts/system.scm | 17 -----------------
1 file changed, 17 deletions(-)
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 4937e68..b87f2bd 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -290,22 +290,6 @@ on service '~a':~%")
((not error) ;not an error
#t)))
-(define (call-with-service-upgrade-info new-services mproc)
- "Call MPROC, a monadic procedure in %STORE-MONAD, passing it the list of
-names of services to load (upgrade), and the list of names of services to
-unload."
- (match (current-services)
- ((services ...)
- (let-values (((to-unload to-restart)
- (shepherd-service-upgrade services new-services)))
- (mproc to-restart
- (map (compose first live-service-provision)
- to-unload))))
- (#f
- (with-monad %store-monad
- (warning (G_ "failed to obtain list of shepherd services~%"))
- (return #f)))))
-
(define-syntax-rule (unless-file-not-found exp)
(catch 'system-error
(lambda ()
@@ -1294,7 +1278,6 @@ argument list and OPTS is the option alist."
(process-command command args opts))))))
;;; Local Variables:
-;;; eval: (put 'call-with-service-upgrade-info 'scheme-indent-function 1)
;;; eval: (put 'with-store* 'scheme-indent-function 1)
;;; End: