summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-01-09 23:12:07 +0100
committerLudovic Courtès <ludo@gnu.org>2017-01-11 10:13:32 +0100
commitca9050d5177a82da63b4716f6b12c7c377a84961 (patch)
treeff31183cbe1c9bb78dfe7e1b906addfa8227f848
parent0c8491cbbead8d04b84714ee4f970f1f1c7be352 (diff)
downloadguix-ca9050d5177a82da63b4716f6b12c7c377a84961.tar.gz
ui: Remove 'show-derivation-outputs'.
* guix/ui.scm (show-derivation-outputs): Remove.
-rw-r--r--guix/ui.scm9
1 files changed, 0 insertions, 9 deletions
diff --git a/guix/ui.scm b/guix/ui.scm
index 7d4c437354..6b8afe814c 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -67,7 +67,6 @@
             make-regexp*
             string->number*
             size->number
-            show-derivation-outputs
             show-what-to-build
             show-what-to-build*
             show-manifest-transaction
@@ -548,14 +547,6 @@ error."
      (leave (_ "expression ~s does not evaluate to a package~%")
             str))))
 
-(define (show-derivation-outputs derivation)
-  "Show the output file names of DERIVATION."
-  (format #t "~{~a~%~}"
-          (map (match-lambda
-                 ((out-name . out)
-                  (derivation->output-path derivation out-name)))
-               (derivation-outputs derivation))))
-
 (define* (show-what-to-build store drv
                              #:key dry-run? (use-substitutes? #t)
                              (mode (build-mode normal)))