nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
This commit is contained in:
David Thompson 2015-05-20 18:42:35 -04:00
parent 35481e8be6
commit 4d043ab628
4 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
build-aux/make-binary-tarball.scm
View File

@ -27,9 +27,6 @@
(gnu system install) (gnu system install)
(ice-9 match)) (ice-9 match))
(define show-what-to-build*
(store-lift show-what-to-build))
(define copy-file* (define copy-file*
(lift2 copy-file %store-monad)) (lift2 copy-file %store-monad))

3
guix/scripts/environment.scm
View File

@ -192,9 +192,6 @@ packages."
(append-map transitive-inputs packages))) (append-map transitive-inputs packages)))
;; TODO: Deduplicate these. ;; TODO: Deduplicate these.
(define show-what-to-build*
(store-lift show-what-to-build))
(define set-build-options-from-command-line* (define set-build-options-from-command-line*
(store-lift set-build-options-from-command-line)) (store-lift set-build-options-from-command-line))

2
guix/scripts/system.scm
View File

@ -67,8 +67,6 @@
(store-lift references)) (store-lift references))
(define topologically-sorted* (define topologically-sorted*
(store-lift topologically-sorted)) (store-lift topologically-sorted))
(define show-what-to-build*
(store-lift show-what-to-build))
(define* (copy-item item target (define* (copy-item item target

4
guix/ui.scm
View File

@ -57,6 +57,7 @@
string->number* string->number*
size->number size->number
show-what-to-build show-what-to-build
show-what-to-build*
show-manifest-transaction show-manifest-transaction
call-with-error-handling call-with-error-handling
with-error-handling with-error-handling
@ -453,6 +454,9 @@ available for download."
(null? download) download))) (null? download) download)))
(pair? build))) (pair? build)))
(define show-what-to-build*
(store-lift show-what-to-build))
(define (right-arrow port) (define (right-arrow port)
"Return either a string containing the 'RIGHT ARROW' character, or an ASCII "Return either a string containing the 'RIGHT ARROW' character, or an ASCII
replacement if PORT is not Unicode-capable." replacement if PORT is not Unicode-capable."