ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 22:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix system: Remove unused procedure.

Browse source 
This procedure was unused since
5c8c8c4554.

* guix/scripts/system.scm (call-with-service-upgrade-info): Remove.
This commit is contained in:
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 @@ (define (report-shepherd-error error)
((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 @@ (define (fail)
(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: