me
/
guix
Archived
1
0
Fork 0
Code

guix system: Remove unused procedure. 

This procedure was unused since
5c8c8c4554.

* guix/scripts/system.scm (call-with-service-upgrade-info): Remove.
master
Ludovic Courtès 2020-04-03 11:22:46 +02:00
parent 9fb3ff31c1
commit 4efbb079b5
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 0 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
guix/scripts/system.scm
View File

@ -290,22 +290,6 @@ on service '~a':~%")
((not error) ;not an error ((not error) ;not an error
#t))) #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) (define-syntax-rule (unless-file-not-found exp)
(catch 'system-error (catch 'system-error
(lambda () (lambda ()
@ -1294,7 +1278,6 @@ argument list and OPTS is the option alist."
(process-command command args opts)))))) (process-command command args opts))))))
;;; Local Variables: ;;; Local Variables:
;;; eval: (put 'call-with-service-upgrade-info 'scheme-indent-function 1)
;;; eval: (put 'with-store* 'scheme-indent-function 1) ;;; eval: (put 'with-store* 'scheme-indent-function 1)
;;; End: ;;; End: