~ruther/guix-local: pull: Build (guix build download) first, because of the (gnutls) autoload.

7b50c68455b07713392cb92a56dbf74fbcc2d182 — Ludovic Courtès 13 years ago 525ca3e

pull: Build (guix build download) first, because of the (gnutls) autoload.

* guix/scripts/pull.scm (unpack): Build (guix build download) first, as
  done in 855a8ad71def2ebc594ed32c57bda0ca4e13d91c.
  Reported by Andreas Enge <andreas@enge.fr>.

patch browse .tar.gz

1 files changed, 6 insertions(+), 1 deletions(-)

M guix/scripts/pull.scm

M guix/scripts/pull.scm => guix/scripts/pull.scm +6 -1

@@ 123,7 123,12 @@ files."
                          (compile-file file
                                        #:output-file go
                                        #:opts %auto-compilation-options))))
-                   (find-files out "\\.scm"))
+
+                   ;; XXX: Because of the autoload hack in (guix build
+                   ;; download), we must build it first to avoid errors since
+                   ;; (gnutls) is unavailable.
+                   (cons (string-append out "/guix/build/download.scm")
+                         (find-files out "\\.scm")))
 
          ;; Remove the "fake" (guix config).
          (delete-file (string-append out "/guix/config.scm"))