1 files changed, 3 insertions(+), 8 deletions(-)

M 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")))