diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-05-20 18:42:35 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-05-21 08:29:47 -0400 |
| commit | 4d043ab6283cb15e2f0cd0847a38ccf3604aab66 (patch) | |
| tree | 1a917e91a0aeecf1251b797b7eca4903f7138e53 /guix/ui.scm | |
| parent | 35481e8be61b80200e49610a67a5001239adb793 (diff) | |
| download | gnu-guix-4d043ab6283cb15e2f0cd0847a38ccf3604aab66.tar gnu-guix-4d043ab6283cb15e2f0cd0847a38ccf3604aab66.tar.gz | |
ui: Deduplicate 'show-what-to-build*'.
* guix/ui.scm (show-what-to-build*): New procedure.
* guix/scripts/environment.scm (show-what-to-build*): Delete.
* guix/scripts/system.scm (show-what-to-build*): Likewise.
* build-aux/make-binary-tarball.scm (show-what-to-build*): Likewise.
Diffstat (limited to 'guix/ui.scm')
| -rw-r--r-- | guix/ui.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index 920355fbb5..9bab7c51dd 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -57,6 +57,7 @@ string->number* size->number show-what-to-build + show-what-to-build* show-manifest-transaction call-with-error-handling with-error-handling @@ -453,6 +454,9 @@ available for download." (null? download) download))) (pair? build))) +(define show-what-to-build* + (store-lift show-what-to-build)) + (define (right-arrow port) "Return either a string containing the 'RIGHT ARROW' character, or an ASCII replacement if PORT is not Unicode-capable." |