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

* guix/scripts/pull.scm (unpack): Build (guix build download) first, as
  done in 855a8ad71d.
  Reported by Andreas Enge <andreas@enge.fr>.
This commit is contained in:
Ludovic Courtès 2013-02-22 20:01:29 +01:00
parent 00fa3d1457
commit a1c1467756
1 changed files with 6 additions and 1 deletions

View File

@ -123,7 +123,12 @@ files."
(compile-file file (compile-file file
#:output-file go #:output-file go
#:opts %auto-compilation-options)))) #: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). ;; Remove the "fake" (guix config).
(delete-file (string-append out "/guix/config.scm")) (delete-file (string-append out "/guix/config.scm"))