summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-04-03 11:22:46 +0200
committerLudovic Courtès <ludo@gnu.org>2020-04-03 12:58:14 +0200
commit4efbb079b5aac6a4eb53ef3f9a67a2849c3ebf1f (patch)
tree93f080e7be74de73431a0620f051e5902b16439f /guix
parent9fb3ff31c15f36545bad11c1d9b11eaf0333f831 (diff)
guix system: Remove unused procedure.
This procedure was unused since 5c8c8c455420af27189d6045b3599fe6e27ad012. * guix/scripts/system.scm (call-with-service-upgrade-info): Remove.
Diffstat (limited to 'guix')
-rw-r--r--guix/scripts/system.scm17
1 files changed, 0 insertions, 17 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 4937e68115..b87f2bdd3b 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: