diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-04-03 11:22:46 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-04-03 12:58:14 +0200 |
| commit | 4efbb079b5aac6a4eb53ef3f9a67a2849c3ebf1f (patch) | |
| tree | 93f080e7be74de73431a0620f051e5902b16439f | |
| parent | 9fb3ff31c15f36545bad11c1d9b11eaf0333f831 (diff) | |
| download | patches-4efbb079b5aac6a4eb53ef3f9a67a2849c3ebf1f.tar patches-4efbb079b5aac6a4eb53ef3f9a67a2849c3ebf1f.tar.gz | |
guix system: Remove unused procedure.
This procedure was unused since
5c8c8c455420af27189d6045b3599fe6e27ad012.
* guix/scripts/system.scm (call-with-service-upgrade-info): Remove.
| -rw-r--r-- | guix/scripts/system.scm | 17 |
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: |