4 files changed, 4 insertions(+), 8 deletions(-)

M build-aux/make-binary-tarball.scm
M guix/scripts/environment.scm
M guix/scripts/system.scm
M guix/ui.scm

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

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

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

@@ 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."