aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix/scripts/pull.scm11
1 files changed, 3 insertions, 8 deletions
diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm
index f3d87a63c0..a1b5cdc991 100644
--- a/guix/scripts/pull.scm
+++ b/guix/scripts/pull.scm
@@ -29,7 +29,6 @@
#:use-module (gnu packages compression)
#:use-module (gnu packages gnupg)
#:use-module (srfi srfi-1)
- #:use-module (srfi srfi-11)
#:use-module (srfi srfi-37)
#:export (guix-pull))
@@ -200,13 +199,9 @@ Download and deploy the latest version of Guix.\n"))
(if (assoc-ref opts 'verbose?)
(current-error-port)
(%make-void-port "w"))))
- (let*-values (((config-dir)
- (config-directory))
- ((source drv)
- (unpack store tarball))
- ((source-dir)
- (derivation-output-path
- (assoc-ref (derivation-outputs drv) "out"))))
+ (let* ((config-dir (config-directory))
+ (source (unpack store tarball))
+ (source-dir (derivation->output-path source)))
(if (show-what-to-build store (list source))
(if (build-derivations store (list source))
(let ((latest (string-append config-dir "/latest")))