diff options
| author | Alex Kost <alezost@gmail.com> | 2015-05-27 21:08:31 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2015-05-29 20:54:54 +0300 |
| commit | 307153c1ef16132fffebe96cc67ad662e37006a4 (patch) | |
| tree | 0e996c6b354d0dca0b4adbae78ca8f6373c17b99 | |
| parent | 5a727cdfa983c6fb6ea8bdecd6d298db439e3610 (diff) | |
| download | guix-307153c1ef16132fffebe96cc67ad662e37006a4.tar guix-307153c1ef16132fffebe96cc67ad662e37006a4.tar.gz | |
emacs: Report about "search paths" after operation.
* guix/scripts/package.scm: Export 'display-search-paths'.
* emacs/guix-main.scm (process-package-actions): Use it.
| -rw-r--r-- | emacs/guix-main.scm | 3 | ||||
| -rw-r--r-- | guix/scripts/package.scm | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/emacs/guix-main.scm b/emacs/guix-main.scm index b1662fbb80..c6e4a8259b 100644 --- a/emacs/guix-main.scm +++ b/emacs/guix-main.scm @@ -878,7 +878,8 @@ OUTPUTS is a list of package outputs (may be an empty list)." (format #t (N_ "~a package in profile~%" "~a packages in profile~%" count) - count)))))))))) + count) + (display-search-paths entries profile)))))))))) (define (delete-generations* profile generations) "Delete GENERATIONS from PROFILE. diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm index 9da6b9ec1e..0df822ec11 100644 --- a/guix/scripts/package.scm +++ b/guix/scripts/package.scm @@ -53,6 +53,7 @@ roll-back delete-generation delete-generations + display-search-paths guix-package)) (define %store |